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ACRONYMS AND SYMBOLS 


AAFE 

Advanced Applications Flight Experiments 

AGC 

Automatic gain control 

ALT 

Altimeter 

Cal 

Calibration 

CPU 

Central Processor Unit 

CW 

Continuous wave 

CZCS-2 

NOSS Coastal -Zone Color Scanner 

EM 

Electromagnetic 

EU 

Engineering Unit 

FNOC 

Fleet Numerical Occanograc' v Center 

SDR 

Seasat Geophysical Data Record 

GEOS 

Geodynamic Experimental Ocean Satellite (GEOS-3) 

GSFC 

Goddard Space Flight Center 

JPL 

Jet Propulsion Laboratory 

LAMMR 

Large Antenna Multichannel Microwave Radiometer 

MSL 

Mean sea level 

NOAA 

National Oceanic and Atmospheric Administration 

NOSS 

National Oceanic Satellite System 

PPF 

NOSS Primary Processing Facility 

PRF 

Pulse Repetition Frequency 

SACU 

Synchronizer Acquisition Calibration Unit 

S/C 

Spacecraft 

SCATT 

Scatterometer 

SOR 

Seasat Sensor Data Record 

Seasat 

Seasat Spacecraft 

SF 

Seesat Sensor File 

SSH 

Sea-Surface Height 

SWH 

Significant Wavehelght 

TBO 

To Be Determined 

TM 

Telemetry Mode 

TWT 

Travel Ing-Wave Tube 

NFC 

Wallops Flight Center 

o° 

Backscatter Cross-Section Per Unit Scattering Area 

C ] 

Maximum Integer Function 


l 


INTRODUCTION 


This document contains a detailed description of the NOSS altimeter algorithms and 
data sets. The algorithm/ data set numbering scheme Is 

X.Y(S) - N. | n} 


X - Sensor 

A ■ Altimeter 
C - CZCS-2 
L - LAHNR 
S ■ Scatterometer 
Y - Type 

A ■ Algorithm 
D ■ Data Set 

S - Source (In this report, If the source Is omitted from the reference number, the 
altimeter is the implied source) 

A ■ Altimeter 
C ■ CZCS-2 
L « LAMMR 
S ■ Scatterometer 
M » Mission contractor 
N Level 

1 * Level 1 

2 * Level 2 

n Algorithm/Data Set Number (as many levels of this number as needed may be used; e.g., 
X.Y(S) - N.n 1 .n 2 .n 3 ). 

Alternative algorithms or data are Indicated by a letter after the number (e.g., X.Y.(S) 
1.2A; X.Y(S) - 1 .26). 

Note that many coefficients and table entries presented In this document are taken from 
the documentation of the Seasat software and are therefore subject to change as the NOSS 
Instrument package Is developed. 


MANAGEMENT SUMMARY 


The purpose of the NOSS Altimeter Detailed Algorithm Specifications 1$ to document 
the details of the algorithms and data sets presented In the NOSS Algorithm Freeze Report* 
Volume 1 In a form suitable for 1) development of the benchmark software by the Data 
Processing and Analysis Section at NASA Wallops Flight Center and 2) delivery to the 
spacecraft contractor as a guide for coding the operational software. 

This document was to be the result of a two-year algorithm development effort to 
completely define the NOSS operational software well In advance of launch. The NOSS 
program was cancelled after a six-month start on this report. Therefore the algorithms 
reported In detail are ones which are established altimeter processing. The algorithms 
which required some additional development before documenting for production have only 
been scoped. This was necessary since the required analysis effort was not funded. The 
following processing description is taken from the NOSS Altimeter Algorithm Specification 
(Ref. 1). 

The level 1 processor converts the data to engineering units and applies first order 
corrections to the data for known instrument variations. Also level 1 quality control 
monitoring Is done In the calibration module and the health status module. Both of these 
modules produce reports that require engineering evaluation. No calibration tables are 
automatically modified because users require a constant data set with updates only when 
significant changes have occurred. Required external inputs to level 1 are the spacecraft 
ephemeris data, the LAMMR update file, and world surface map data. Some of the table 
entries will be determined after post launch calibration experiments. The calibration 
trend file Is an Important internal file which allows for the analysis of altimeter 
characteristics over long periods. The resulting level 1 output file contains all altim- 
eter data at full rate with all Instrument applied corrections and status flags on in- 
strument health. By removing the corrections and knowing the conversion factors the 
original level 0 data can be recovered if needed. 

The level 2 processor provides quality geophysical measurements derived from altim- 
eter parameters to oceanographic users. In addition, it will provide Ice sheet measure- 
ments to the ice user community. Its output data rate and content will be compressed to 
(nominally) once per second. The altimeter parameters significant wavehelght, wind speed 
and surface height, are basically direct calculations. Additional products will be ocean 
wavehelght distribution skewness, dominant wavelength, significant slope, rain rate, ocean 
backscatter, and sea-ice boundary. Ice-sheet height, surface slope, and roughness will be 
calculated over Ice sheets. In order to provide quality products some of the corrections 
require iterative processing and several external files are required as Input to determine 
the best corrections. The parameters required from these files are the LAMR level 2 
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pathlength correction, FHOC atmospheric pressure, LAMNR Tg, Ionospheric electron density, 
solar and lunar ephemerldes, geold, and tide. The resulting level 2 output file contains 
only geophysical data and associated corrections. By maintaining the corrections on file 
an Individual user may apply variations from his own research. 


OVERVIEW 


The background and objectives for the NOSS altimeter are defined In Reference 1. It 
Is repeated here that functionally, the altimeter measures the spacecraft height above 
mean sea level (HSL), and the significant wavehelght (SWH) and backscatter coefficient 
(o°) of the ocean surface beneath the spacecraft (Ref. 2). The altimeter Is a 13.56 GHz 
monostatic radar system that tracks In range only using a 1 m parabolic antenna pointed at 
the satellite nadir. Its high resolution, coupled with a high transmitted pulse rate of 
926 Hz, permits the realization of 10 cm altitude precision. 

The basic Idea behind satellite altimetry Is to utilize the highly stable platform 
provided by a spacecraft as a moving reference system from which vertical measurements to 
the ocean surface are made (Ref. 3). Referring to Figure 1, altimeter systems provide 
three measurements: 

(1) Altitude - The elapsed time between the time of transmission of an RF pulse of 
energy and its reception back at the altimeter, after having been scattered from 
the ocean surface below, is essentially a measurement of the height of the 
satellite above mean sea level. When merged with accurate orbital Information, 
the results can be related to changes In mean sea level due to such spatially 
varying quantities as gravity anomalies and such time varying quantities as 
tides, winds, and currents. 

(2) Return Pulse Shape (Waveform) - The slope and duration of the leading edge of 
the return pulse can be related to the significant wavehelght of the ocean sur- 
face below. In addition, through a deconvolution process, the surface height 
distribution can be recovered. Including Its skewness. It has been shown (Ref. 

4) that skewness can then be related to such additional oceanographic parameters 
as dominant wavelength, swell/sea ratio, etc. Finally, the slope and duration 
of the trailing edge of the return pulse can be related to the attitude of the 
satellite (angle of the measurement axis with respect to the subsatellite point). 

(3) Return Pulse Amplitude - The amplitude of the return pulse, which Is determined 
from the AGC used to normalize the Incoming wa.aform, can be related to the 
backscatter coefficient (o°) of the surface below, which In turn, can be related 
to wind speed over the ocean as well as certain Ice related parameters. 
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Figure 1. Block Diagram Depicting Satellite Altimetry Concept and 
Potential Applications. 




Key Assumptions 


In the development of the altimeter processing algorithms, the foil wring key assump- 
tions have been made: 

1. Because of the similarity between the proposed NOSS altimeter Instrument and the 
Seasat a It* me ter Instrument and because many of the altimeter algorithms re- 
quired by the NOSS processing software were developed for Seasat and verified In 
an operational (although not real-time) environment, many of the Seasat altim- 
eter algorithms have been adopted for use by the NOSS altimeter processing 
software. 

2. The similarity between the NOSS altimeter and the Seasat altimeter permits the 
adoption of Seasat calibration and processing tables for use as a starting point 
In developing those tables for the NOSS altimeter. All tables and constants, 
whether determined from Seasat documentation, from documentation of other 
altimeter Instruments (l.e., GEOS-3), or some other source , must be flexible 
until the final NOSS values are determined. A few of these table entries will 
not be defined until well after the launch of the spacecraft. 

3. In order to facilitate the generation of the benchmark software by the Data 
Processing and Analysis Section of the Wallops Flight Center and because of the 
general acceptance of the FORTRAN language In the scientific community, all 
altimeter algorithms have been expressed In FORTRAN-llke Instructions. However, 
these Instructions should not necessarily be assumed to be In optimum program- 
ming form. 

4. All data required from the Input files (l.e., ephemerls files, FNOC file, LAHMR 
level 2 file, etc.) must be available and current as the altimetry processing 
software requires It. Failure to supply any of the Input files must not result 
In the abnormal termination of the altimeter processing software, but may pro- 
duce degraded output products that will be flagged as such. 

5. All Input data files required by the altimeter processing software, as well as 
all output reports generated by the altimeter processing software, will be 
maintained at the PPF on data-storage devices for a minimum of one week on a 
dally rotating basis. The trend file and solar/lunar ephemerls file will be 
maintained for one year on a monthly rotating basis. 

6. Because the spacecraft Is designed to have two altimeters that, although physi- 
cally similar, may have different electronic characteristics, all software must 
have the capability for processing two Independent altimeters. This will re- 
quire two sets of Input tables, two sets of output reports, and documentation 
stating which of the two altimeters was used In taking the data. 
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7. The prefix " Instrument,” ts used In this report, relates to the altimeter house- 
keeping parameters that are supplied directly from the spacecraft. For example, 
the "Instrument voltage" Is the altimeter voltage as detected by the spacecraft 
monitor. 

8. All processing of altimeter data will be handled by using data stored record by 
record. This will mean that a level 0 Input data record will be read Into core 
ami modified as the appropriate altimeter processing algorithms are accessed. 
After all modules have been processed, the data record will be transferred from 
core to the output file. 

9. The following algorithms have only been scoped: 


A.A-1.1 .8 

EU Rain Subcom 

A.A-1.1.9 

EU Waveform 

A.A-1.3.3 

Trend File Processing 

A.A-1.4 

Adaptive Resolution 

A.A-1.5.1 

Spacecraft Ephemeris Interpolation 

A.A-1.5.2 

Subsatelllte Point Calculation 

A.A-2.1 

Contamination Processing 

A.A-2.3.2 

Waveform Altitude Correction 

A.A-2.3.3 

Waveform SWH Correction 

A.A-2.3.4 

Waveform SWH Bias 

A.A-2.4 

Atmospheric Corrections 

A.A-2.6.3.1 

Solar/Lunar Ephemeris Interpolation 

A.A-2.6.4 

EM Bias 

A.A-2.7 

Ice Sheet Height 

A.A-2.8 

Sea Ice 

A. A- 2. 9 

Quality Control 


10. Subsystem Interfaces are handled by the Mission Contractor so that the required 
data are colocated In time and space for meeting the requirements of the altim- 
eter algorithms. 


SUBSYSTEM DESCRIPTION 


General 

* 

This section summarizes the logic of the altimeter level 1 and level 2 subsystem 
software. Included are the altimeter subsystem flow charts, a narrative description of 
each of the major modules, and a description of the subsystem Interfaces with other PPF 
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software. Tablet I and II provide an IMex to the level 1 end level 2 nodules and data 
sett. 

Figures 2 and 3 show the NOSS altimeter software subsystem for level 1 and level 2« 
respectively. Figures 4 and 5 are more detailed for level 1 and level 2, respectively, 
showing the submodules development status. The shaded submodules need more development 
and are not given In detail In this report. A brief description of each of the software 
modules follows In the Narrative Description, and Data Description. The Module Descrip- 
tions contain detailed descriptions of each of the modules, submodules, and data sets. 


Narrative Description 

The following paragraphs provide a general description of each of the major modules 
of the NOSS altimeter processing software. Indexed by the algorithm reference numbers (see 
Tables II and III). 

Level 1 Components 

1. 1.1— Engineering Unit Conversion - This module will convert the counts In the 
telemetry data strewn to engineering (functional) units. The Input to this 
module will be the raw (level 0) data In counts, and the output will be altim- 
eter parameters and housekeeping data, expressed In engineering units, to be 
used by the other modules of the altimeter processing software. 

The method of conversion to engineering units will vary with different param- 
eters. Some conversions will simply require a table look-up or a temperature 
correction, whereas others will require the evaluation of a polynomial. It 
should be noted, however, that not all parameters in the telemetry stream re- 
quire conversion to engineering units because some parameters are merely flags 
whose bits are used to determine a status or mode of operation. 

2, 1.2— Level 1 Altitude Module - This module will calculate certain sensor-related 
corrections to the altitude and automatic gain control (AGC). These corrections 
are performed In the following submodules: (1) 1.2,1— Altitude time-tag correc- 
tions; (2) 1.2.2— Altitude calibration zone bias; (3) 1.2.3— Altitude center-of- 
gravlty offset; and (4) 1,2.4-Callbratlon mode bias. The altitude time-tag 
corrections are functions of track mode and altitude. The calibration zone bias 
will correct the altitude measurements to a comm datum using information 
derived from data that are taken directly over laser tracking stations In the 
calibration area. The center-of-gravitv offset will account for the location of 
the altimeter antenna with respect to the spacecraft center of gravity and the 
expenditure of the onboard fuel, and the calibration mode bias compensates for 
differences determined by comparing calibration mode date with preflight tables. 
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TABLE I. LEVEL 1 MODULES AND OATA SETS 


Nodules 

A.A-0 

.0 

A.A-1 

.0 

A.A-1 

.1 

A.A-1 

.1.1 

A.A-1 

.1.1.1 

A.A-1 

.1.2 

A.A-1 

.1.2.1 

A.A-1 

.1.3 

A.A-1 

.1.4 

A.A-1 

.1.5 

A.A-1 

.1.6 

A.A-1 

,1.7 

A.A-1 

.1.8 

A.A-1 

.1.9 

A.A-1 

.2 

A.A-1 

.2.1 

A.A-1 

.2.2 

A.A-1 

.2,3 

A.A-1 

.2.4 

A.A-1 

.3 

A.A-1 

.3.1 

A. A-l 

.3.1.1 

A.A-1 

.3.2 

A.A-1 

.3.3 

A.A-1 

.4 

A.A-1 

.5 

A.A-1 

.5.1 

A.A-1 

.5.2 

A.A-1 

.6 

A.A-1 

.6.1 

A.A-1 

.6.1.1 

A.A-1 

.6.2 

A.A-1 

.6.3 

A.A-1 

.6.4 

A.A-1 

.6.5 

A.A-1 

.6.6 

A.A-1 

.6.7 

Data 

Sets 


A.D-1.71 

A.D-1.72 


A.Di 
A.D 

MJI 

M 


m.DI 
A.Di 
A.D-1.91 
A.D-1.92 
A.D-1.93 
A.D-1.94 


-1.81 

1-1.82 

1-1.83 

1.84 

1.85 



Altimeter Main Driver 

Level 1 Driver 

Engineering Units Conversion 

EU Date and Time 

EU Bit Extraction 

EU Altitude, SWH, and AGC 

EU Polynomial Fit 

EU Gate Amplitude 

EU Status Extraction 

EU Engineering Subcom #1 

EU Engineering Subcom #2 

EU Engineering Subcom #3 

E’J Rain Subcom 

EU Waveform, CM, or Dump 

Level 1 Altitude Correction 

Time Tag Correction 

Cal Zone Bias 

Center of Gravity Offset 

Cal Mode Bias 

Cal Mode Driver 

Cal 1 

Cal Mode Statistical Accumulation 
Cal 2 

Trend Processing 
Adaptive Resolution 
Location Processing 
Spacecraft Ephemerii Interpolation 
Subsatelllte Point Calculation 
Health/Status Monitor Driver 
1-Day t?rap-Up 

HS Statistical Accumulation 
H$ n -Minute Wrap-Up 
HS Status 
HS Non- Subcom 
HS Engineering Subcom 41 
HS Engineering Subcom #2 
HS Engineering Subcom #3 


Trend File 
EU Coefficient File 
Level 0 Date File 
Spacecraft Ephemerls File 
World Surface Map File 
LAMR Update File 
Executive Parameter File 
Calibration Report 
Trend Report 
Altimeter Diagnostics 
Level 1 Output File 


TABLE II. LEVEL 2 MODULES AND DATA SETS 


Identifier 

Modules 

A.A-2.0 
A.A-2.1 
A.A-2.2 
A.A-2.3 
A.A-2.3.1 
A.A-2.3. 1.1 
A.A-2.3.1. 1.1 
A.A-2.3.1. 1.1.1 
A.A-2.3.1. 1.1. 2 
A.A-2.3. 1.1. 1.3 
A.A-2.3.1. 1.1. 4 
A.A-2.3.1. 2 
A.A-2.3.2 
A.A-2.3.3 
A.A-2.3.4 
A.A-2.3. 5 
A.A-2.4 
A.A-2.4.1 
A.A-2.4. 2 
A.A-2.4. 3 
A.A-2.4.4 
A.A-2.4. 5 
A.A-2.4. 6 
A.A-2.5 
A. A-2.5.1 
A.A-2.5. 2 
A.A-2.6 
A.A-2.6.1 
A.A-2. 6.1.1 
A.A-2.6. 2 
A.A-2. 6. 3 
A.A-2.6. 3.1 
A.A-2.6. 4 
A.A-2. 6.5 
A.A-2. 7 
A.A-2. 8 
A.A-2. 9 

Data Sets 

A.D-2.71 

A.D-2.72 

A.D(M)-2.81 

A.D Ml-2.82 

A.D(M -2.83 

A.D(M)-2.84 

A.D(M)-2.85 

A.D-2.91 

A.D-2.92 


Title 


Level 2 Driver 
Contaml nation 
Data Compression 
Waveform Module 
Waveform Processor Driver 
Derivative 
Convolution 

Surface Elevation Distribution 
Flat Sea Response 
Fast Fourier Transform 
Fast Fourier Synthesizing 
Matrix Inversion 
Altitude Correction 
Sm Correction 
SWH Bias 

Waveform Products 
Atmospheric Corrections 
Rain Gate 
Barotropic Effect 
Ionospheric Correction 
Dry Tropospheric Refraction 
Wet Tropospheric Refraction 
Radar Backscatter Coefficient 
Wind and Radar Backscatter Driver 
Radar Backscatter Coefficient 
Wind Speed 

Level 2 Altitude Correction 
Geoid Height 
Bilinear Interpolation 
Tide Height 

Solid Earth Tide Height 
Solar/Lunar Ephemeris Interpolation 
EM Bias 

Sea Surface Height 
Ice Sheet Height 
Sea Ice 

Quality Control 


Geoid File 
Tide File 
FNOC File 

Ionospheric Data File 
LAMMR Level 2 File 
LAMMR T b File 

Solar/Lunar Ephemeris File 
Level 2 Output File 
Wind o° Output File 





















Figure 3. Altimeter Subsystem Level 2 Flow Chart 























Note that the tlme-tasucorrectlons must be performed immediately after the 
engineering unit conversion so that all ephemerls data will be correctly Inter- 
polated In the location classification module. 

3. 1 .3— Calibration (Cal) Mode Module - The altimeter processing software will moni- 
tor all calibration mode data In this module, which contains three submodules: 

(1) 1.3.1— Cal 1 processor; (2) 1.3.2— Cal 2 processor; and (3) 1.3.3— Trend 
File processor. The altimeter has Internal calibration modes to detect changes 
in altitude, AGC, and other parameters attributable to aging, temperature, volt- 
age fluctuation, etc. This mode will be employed for 60 seconds about once per 
day. The cal mode module will process the calibration mode data and generate 
calibration reports of comparisons with preflight nominal calibrations. These 
reports will require Mission Contractor interpretation of flagged changes to be 
significant enough to justify updates to the cal mode bias submodule tables. 

The trend file processor is designed to identify long-range (one month to one 
year) trends in the calibration mode data. To this end, a file of trends will 
be automatically maintained by the altimeter processing software, and signifi- 
cant changes In altimeter parameters will be calculated and flagged. A human 
decision of the appropriate action to be taken to correct the flagged parameters 
will be required. It may take two to three weeks to verify that the character- 
istic Is valid and, if valid, to implement a correction. Any faster changes 
will be detected by health status monitoring. 

4. 1.4— Adaptive Resolution - Adaptive resolution is a mode in which the altimeter 
has detected surface slope changes and automatically switched to a wider pulse 
width and different track constants to maintain lock. This will occur primarily 
over Ice sheets and land. This module will correct time tags, AGC, and altitude 
in the adaptive resolution mode for offsets due to the selected pulse width and 
tracker characteristics. These corrections will make the level 1 output pro- 
ducts consistent with the normal track mode. In addition, CW mode data will be 
processed in this module. Although CW Is normally used for acquisition only, 
the system can be commanded to this mode for continued operation. 

5. 1.5— location Classification Module - This module will classify the subsatelllte 
point as either land, water, or ice based on a world surface map. The LAMMR 
subsystem will update the Ice fields of the world surface map. In addition, 
this module will merge and interpolate the satellite ephemeris data In order to 
calculate the latitude and longitude of the subsatellite point and the space- 
craft height above the reference ellipsoid. 

6. 1.6— Health/Status Monitor - This module will automatically monitor critical 
Instrianent parameters and set off system alarms when a potentially damaging or 
dangerous condition Is observed. It will set quality flags for altitude, tem- 
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perature, voltage* and current to be output to the health/status monitor report 
and to the level 1 output data file. The analysis of this output will require 
Mission Contractor Interpretation and Interaction. The protection of the 
altimeter will be the responsibility of the control center. This monitor will 
be a backup of control -center decisions and will assist In early alert of 
trends. The output should be reviewed dally. 

Level 2 Components 

1. 2.1— Contamination Processing - This module will classify the nature of the sub- 
satellite point as either land, water, or Ice. This classification, which Is 
derived from analysis of the altimeter data with a resolution of approximately 

1 km, should not be confused with the classification performed In the location 
classification module, which Is derived from a world surface map that has a 
resolution of approximately 10 km. The software will estimate the time and 
location of land/water and ice/water interfaces. In addition, a flag will be 
set to indicate if the data are appropriate for processing by the waveform 
processor. 

2. 2.2— Data Compression - The altimeter level 1 output data rate Is 20 frames per 
second. The data compression software will smooth the data to a selectable rate 
(nominally once per second) and will edit nonproduction data modes such as 
calibration mode, trigger kill, and standby. The rate Is variable and selected 
by the Project. The software will also calculate standard deviations for most 
parameters for subsequent quality analysis. 

3. 2.3— Waveform Module - This module will process waveform data in order to cal- 
culate significant wavehelght (SWH), attitude, and skewness, as well as altitude 
corrections and certain ocean-wave parameters. The calculation of the SWH, 
attitude, and skewness parameters requires an iterative calculation of a best- 
fit solution to the waveform data that is described In Ref. 4. That calculation 
is the convolution of the antenna pattern, surface distribution, and radar 
pulse. If the solution fails to converge, then the SWH calculated onboard will 
be used with backup table bias corrections to SWH and altitude. 

4. 2. 4- -Atmospheric Module - This module will calculate the atmospheric corrections 
to the spacecraft altitude and the radar backscatter coefficient. It will also 
process data from the rain gate. The altitude corrections from this module 
consist of the combined effects of ionospheric refraction, wet and dry tropo- 
spheric refraction, and atmospheric pressure. The prime wet tropospheric re- 
fraction correction will employ data from a file built by IAW1R algorithms. 

FNOC data will be used when LAJWR data are not available. 

The radar backscatter coefficient correction accounts for the effects of the 
atmosphere on return power. This correction will be based on data from the 
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LAMMR Tg file and will use SCATT- supplied algorithms. The correction will not 
be applied until the validity of the LAMMR data has been established (after 
launch). The rain-gate processing detects the presence of rain at the sub- 
satellite point and Is used for o' correction. 

5. 2.5— Wind-Speed Module - This module will calculate the radar backscatter 
coefficient and the ground wind speed. The calculated radar backscatter co- 
efficient (o°) is a function of AGC, altitude, and attitude, and the altimeter 
estimated wind speed 1$ a function of o°. Note that the atmospheric correction 
to o° for rain will be applied before the wind speed Is calculated. 

6. 2.6— Level 2 Altitude Module - This module will correct the altitude measure- 
ments for electromagnetic (EM) bias, using derived coefficients that account for 
the difference between the radar-observed sea-surface height distribution and 
the geometrical sea-surface height. This module will also calculate the sea 
surface height and the altimeter residual. In order to calculate these two 
parameters. It Is necessary to evaluate the geoid height, the ocean tide height, 
and the solid Earth tide height. 

7. 2.7— Ice- Sheet Height - This module will be employed only over areas of ice 
Interest. The altimeter data will be corrected for waveform shape changes that 
cause track-point shifts. This correction will be done by a software retracking 
process designed for ice-sheet processing. 

8. 2.8— Sea Ice Products - This module computes the sea Ice-related products mean- 
squared slope and percent smooth area. In addition, special retracking will be 
performed to reduce the noise on the altitude measurement over sea Ice. 

9. 2.9— Quality-Control Monitor - As a final step in the level 2 processing, the 

altimeter software will analyze the contents of the level 2 output file in order 
to classify the quality of the data. The data will be flagged as being of 
questionable quality when: (a) prescribed standard deviation tolerances are 

exceeded, (b) the number of rejected points in the various smoothing algorithms 
exceeds acceptable limits, or (c) operational threshold limits are exceeded. 


Data Interface Descriptions (Summary) 

This section describes the subsystem Interfaces between the altimeter processing 
software and other NOSS PPF software. These interfaces are In the form of Input files and 
output files and reports, which are described In more detail In (Ref. 1). 

The subsystem Interfaces are as follows: 

(a) A.D-1 .71— Trend File - To maintain a history file of the calibration mode data 
In order to assist In the Identification of long-range trends In that data. The 
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file will be read from and written to by the trend file processor, A.A-1.3.2. 

(b) A. D-1. 72— EU Coefficient File - To provide engineering unit conversion coeffi- 
cients for both altimeters. It Is used to load the operating altimeter's 
coefficients Into standard arrays for the data processing. The mission con- 
tractor Is to supply this file. 

(c) A.D(M)-1.81 -Level 0 Data File - This file Is supplied to the altimeter software 
by the Mission Contractor and contains all of the raw altimeter data In counts. 
Appendix A gives the expected altimeter telemetry contents. 

(d) A. D(H) -1.82— Spacecraft Ephemerls File - This file Is supplied by the Mission 
Contractor and contains the spacecraft ephemerls Information needed to accu- 
rately Identify the position of the spacecraft. 

(e) A.D(M)-1.83— World Surface Map File - This file Is supplied by the Mission 
Contractor and contains the locations of the land/water and Ice/water boundaries. 
The file Is updated by the LAMMR update file, A.D(L)- 1.84. 

(f) A.D(L)-1.84— LAMffi Update File - This file supplied by the LAMM! processing 
software is used to update the Ice-field locations. The Mission Contractor will 
handle the Interface between A.D(L)-1.84 and A.D.(M)-1.83. 

(g) A. D(M)-1. 85— Executive Parameter File - This file Is used by the user to select 
various program options before starting job execution. 

(h) A. D-1. 91— Calibration Report - This report Is generated by the altimeter proc- 
essing software to sunmarize the calibration mode data for human Interpretation 
to determine If any requirements exist to update parameter calibration tables. 

(1) A.D-1.92r-Trend Report - This report Is generated to identify long-range trends 
In the altimeter data for human Interpretation to determine If any requirements 
exist to update parameter calibration tables. 

(j) A. D-1. 93— Altimeter Diagnostic Report - This report Is generated to Identify 
altimeter parameters that have exceeded tolerances and require human Interpreta- 
tion to decide If the operational status of an altimeter must be modified. 

(k) A. D-1. 94— Level 1 Output File - This file Is supplied by the altimeter process- 
ing software to the PPF for archiving, level 2 processing, and users. It con- 
tains all level 1 altimeter data. The Mission Contractor Is responsible for the 
formatting of this file. Table III lists the contents of the altimeter level 1 
output record. Also the data In Table A-2 are output once per second. 

(l) A.D-2.71— Geold File - It provides global geold-helght estimates to be written 
on the level 2 output file, A. 0-2. 91, which are used in the calculation of the 
altimeter residual, A. A-2. 6. 5. The file Is read by the geold height module, 

A. A-2. 6.1. Numerous geold models are currently available with more expected by 
the mid 1980' s. Most of the geold models that are currently accepted as the 
most accurate have been generated by, and are available from, 6SFC. 
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TABLE III. ALTIMETER LEVEL 1 OUTPUT RECORD CONTENT* 


Name 

Length 

Time 

8 

Orbit number 

2 

Latitude 

4 

Longitude 

4 

Spacecraft altitude 

8 

Solar latitude 

4 

Instrument attitude 

2 

World classification 

1 

Zone flag 

2 

Altimeter number/mode 

1 

Health flags 

6 

A1 tl tude 

8 

Altitude rate 

4 

Altitude error 

4 

SWH 

2 

AGC 

2 

Delta time 

2 

Delta altitude for CG 

2 

Delta altitude for CZ 

2 

Delta altitude for CM 

2 

Delta AGC for CM 

2 

Delta altitude for AR 

2 

Delta AGC for AR 

2 

TM words 12 to 93 

164 

Solar position vector 

24 

Lunar position vector 

24 

Spare 

28 

Total 

316 


* Plus special record once per second (see Table A. 2). 


(m) A.P-2.72~T1de Ktelght - It provides global ocaan-tldt halght estimates to be 
written on the level 2 output file A. 0-2. 91, which are used In calculating the 
altimeter residual, A.A-2.6.5. The file Is read by the tide height module, 
A.A-2.6.2. This comes from Government* furnished Information developed by E. W. 
Schwlderskl, Naval Surface Weapons Center, Dahlgren, Virginia. 

(n) A.D(M)-2.81 — fNOC File - This file Is supplied by the Mission Contractor and 
contains meteorological data used In calculating altitude corrections. 

(o) A. D(M)-2. 82 —Ionospheric Data File - This file Is supplied to the altimeter 
software by the Mission Contractor and contains sunspot and solar flux data for 
calculating Ionospheric refraction. Ref. 5 contains more detailed Information. 

(p) A.D. (D-2.83- LAMMR Level 2 File - This file Is supplied by the LAMMR processing 
software and contains data for calculating the wet tropospheric refraction 
altitude correction and the sigma -naught atmospheric correction. 

(q) A. D(L)-2.84— LAMMR T fi File - This file Is supplied by the LAMMR processing 
software and contains inYormatlon relating to the sigma-naught atmospheric 
correction. Ref. 6 contains a more detailed description. 

(r) A. D(M)-2. 85— Solar/Lunar Ephemerls File - This file Is supplied by the Mission 
Contractor and contains position vector of the sun and the moon as a function of 
time. 

(s) A. 0-2, 91 —Level 2 Output File - This file Is supplied by altimeter processing 
software and contains all level 2 altimeter data In corrected geophysical form. 
The Mission Contractor Is responsible for the formatting of this file. Table IV 
lists the contents of an output record. 

(t) A. D-2. 92— Wind/Sigma-Naught File - This file Is supplied by the altimeter 
processing software to the SCATT and CZCS-2 subsystems and contains wind speed, 
sigma-naught, SWH, and rain-rate estimates. The Mission Contractor Is respon- 
sible for the Interface between the subsystems. 


Comnon Description 

Fortran-like code has been used to describe the algorithms. This lead to the definl 
tlon of labeled commons for communl cation between the various submodules. The commons 
allow most variables to be readily available. These comnons are described In detail by 
Tables V through X. 
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TABLE IV. ALTIMETER LEVEL 2 OUTPUT RECORD CONTENTS 


H— it 


Length (by tt») 


Tint 

Orbit number 

Latitude 

Longitude 

Spacecraft altitude 
Solar latitude 
Instrument attitude 
World classification 
Zone flag 

Altimeter number /mode 
Quality flags 
Contamination flag 
Number of frames compressed 
Altitude 

Altitude standard deviation and 
total correction 
Delta altitude corrections (16) 
Atmospheric measurements 
SWH 

SIM standard deviations 
Delta SIM corrections 
Ocean backscatter o° 

Delta o° correction/method 

Wind speed 

Rain rate/quallty 

AGC 

AGC standard deviation 
Rain gates 1 and 2 
Waveform-derived amplitude 
Waveform-derived baseline 
Waveform-derived attitude 
Skewness 

Sea -surface height 
Altitude residual 
EM bias 
Geold height 
Tide height 
Solid-Earth tide 


Ice boundary/quellty 
Mean square slope (sea Ice) 
Percent smoothness (sea Ice) 
Ice delta correction 
Ice delta AGC correction 
Ice-sheet slope 
Ice-sheet roughness 
Spares 


8 

4 

4 

4 

8 

4 

2 

1 

2 

1 

6 

2 

2 

8 

4 

32 

8 

2 

4 

4 

2 

4 

2 

4 

2 

4 

4 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 

2 

2 

2 

2 

2 

2 

35 

2W 


Total 


TABLE V. COMMON EXECUT EXECUTION CONTROL (I EX EC) 


1. Input data type 

• 0, process both level 1 I 2 (default) 

* 1, process level 1 only 
■ 2, process level 2 only 

2. year -1900 (l.e,, 85) 

3. rev nwber 

4. miibet minutes for averaging period In Heelth Status Monitor (A.A*1.6) 

5. compression period In hundredths of • second 


TABLE VI. COMMON STATUS STATUS PARAMETERS (ISTAT) 


1. 

commend out to SACU 

26. program version 

2. 

HV on 

27. tracker type 

3. 

HV reedy 

28. resolution step 

4. 

TOT fault 

29. TOT fault override 

5. 

parity 

30. LVPS current 

6. 

memory dump 

31. AT number 

7. 

rain processing enable 

32. acquisition constant index 

8. 

CAL I. I! 

33. track constant Index 

9. 

mode command 

34. AGC threshold Index 

10. 

status #1 bits 2 and 1 

35. a, 8. and AGC acquisition 

11. 

charnel select 

36. a, 8. and AGC track Index 

12. 

ATU mode 

37. AH gate width Index 

13. 

gate width 

38. Lg-Eg track Index 

14. 

ACQ/TRK 

39. height error Index 

15. 

chirp ACQ step 

40. Lg-Eg acquisition Index 

16. 

reacquire flag 

41. wavehelght curve offset 

17. 

*h> t ah 

42. acquisition height offset 

18. 

chlrp/cw 

43. subtrack direction flag 

19. 

high voltage ON/OFF 

44. zone flag 

20. 

TWTA fault reset 

45. waveform processor convergence flag 

21. 

trigger kill 

46. 

22. 

calibrate mode 1 

47. 

23. 

calibrate mode 2 

48. 

24. 

TOT heater ON/OFF 

49. 

25. 

altimeter designator 

50. 


I 
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TABLE VII. rswON EUCOCF ENGINEERING UNIT CONVERSION 


EUC 


1. altitude 

22. 

2. altitude rate 

23. 

3. altitude error 

24. 

4. SUN 

25. 

5. AGC word 

26. 

6. noise gate amplitude 

27. 

7. plateau gate amplitude 

28. 

8. attitude gate amplitude 

29. 

g. transmit power 

30. 

10. TWT beam current 

31. 

11. TUT cathode voltage 

32. 

12. TWT HVPS temperature 

33. 

13. TUT collector temperature 

34. 

14. receiver temperature 

35. 

15. noise gate amplitude 

36. 

16. plateau gate amplitude 

37. 

17. attitude gate amplitude 

38. 

18. transmit power 

39. 

19. UCFM temperature 

40. 

20. DOL temperature 

41. 

21. DOL ASSY temperature 

42. 


HSWS temperature 

OFB temperature #1 

AT #1 temperature 

AT #2 temperature 

ICU temperature 

SACU temperature 

LVPS temperature 

LVPS 38V current 

♦28V S/C bus Isolated 

♦28V 

♦15V 

-15V 

♦7V 

-9V 

♦5V 

-5.2V 

♦l.OOV REF 
0.657V REF 
SACU PIO LOCK 
MTU temperature 
OFB temperature #2 
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TABLE VI I 1(a). CONK* HSCOM HEALTH STATUS VARIABLES 


Array 

Z(I) 

ZL(I) 

ZU(I) 

ZE(I) 

S1D(I,J) 

S2D(I,J) 

N1D(I,J) 

N2D( I ,J) 

ZHINO(I.J) 

ZMAXD(I.J) 

ZMO(I.J) 

ZVD(I.J) 

ZSD(I ,J) 

SIM(I.J) 

S2H(I,J) 

NIM(I.J) 

N2M( I ,J) 

ZMINH(I.J) 

ZMAXM(I.J) 

ZMM(I,J) 

ZVM(I,J) 

ZSH(I.J) 

NEWDAY 


Explanation 
data to be averaged 
lower edit Units 
upper edit limits 
expected mean values 

summations of unedited points (1-day averaging) 

summations of unedited points squared ( 1 -day averaging) 

number of unedited points (1-day averaging) 

number of edited points (1-day averaging) 

minimum unedited points (1-day averaging) 

maximum unedited points (1-day averaging) 

means (1-day averaging) 

variances (1-day averaging) 

standard deviations (1-day averaging) 

simulations of unedited points (n-minute averaging) 

summations of unedited points squared (n-minute averaging) 

number of unedited points (n-minute averaging) 

number of edited points (n-minute averaging) 

minimum unedited points (n-minute averaging) 

maximum unedited points (n-minute averaging) 

means (n-minute averaging) 

variances (n-minute averaging) 

standard deviations (n-minute averaging) 

= 0 for same day 


= 1 for new day 

ZAL(I,J) lower alarm limits 

ZAU(I,J) upper alarm limits 

NCNT(K) frame counters 

for explanations of subscripts I, J, and K see Table IX(b) 


TABLE VI 1 1(b) . EXPLANATIONS OF SUBSCRIPTS I, J, ANO K IN TABLE VI II (a) 


i Explanation 

1 spacecraft attitude 

2 altitude rate 

3 altitude error 

4 SWH 

5 AGC word 

6 AGC gate amplitude 

7 noise gate amplitude 

8 transmit power (chirp mode) 

9 transmit power (CM mode) 

10 TWT beam current 

11 TUT cathode voltage 

12 TWT HVPS temperature 

13 TWT collector temperature 

14 receiver temperature 

15 noise gate amplitude 

16 plateau gate amplitude 

17 attitude gate amplitude 

18 transmit power (chirp mode) 

19 transmit power (CW mode) 

20 UCFM temperature 

21 OCX. temperature 

22 DDL ASSY temperature 

23 HSWS temperature 

24 DFB temperature no. 1 

25 AT no. 1 temperature 

26 AT no. 2 temperature 

27 ICU temperature 

28 SACU temperature 

29 LVPS temperature 

30 LVPS 38V current 

31 +28V S/C bus Isolated 

32 +28V 

33 +15V 

34 -15V 

35 +7V 

36 -9V 

37 +5V 

38 -5.2V 

39 +1 .00V REF 

40 0.657V REF 

41 SACU PLO LOCK 

42 MTU temperature 

43 DFB temperature no. 2 


I Explanation 

44 TWT HVPS temperature 

45 TWT collector temperature 

46 receiver temperature 

47 noise gate amplitude 

48 plateau gate amplitude 

49 attitude gate amplitude 

50 transmit power (chirp mode) 

51 transmit power (CW mode) 

52 UCFM temperature 

53 DDL temperature 

54 DDL ASSY temperature 

55 HSWS temperature 

56 DFB temperature no. 1 

57 AT no. 1 temperature 

58 AT no. 2 temperature 

59 ICU temperature 

60 SACU temperature 

61 LVPS temperature 

62 LVPS 38V current 

63 +28V S/C bus Isolated 

64 +28V 

65 +15V 

66 -15V 

67 +7V 

68 -9V 

69 +5V 

70 -5.2V 

71 +1.00V REF 

72 0.657V REF 

73 SACU PLO LOCK 

74 MTU temperature 

75 DFB temperature no. 2 
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TABLE VI I 1(b) (continued) 


J Explanation 

1 altimeter no. 1 

2 altimeter no. 2 


K Explanation 

1 HV on 

2 HV off 

3 altimeter on 

4 standby 

5 calibrate 

6 trigger kill (last conmand sent) 

7 track 1 

8 track 2 

9 track 3 

10 track 4 

11 TWT fault reset (last conmand sent) 

12 test mode 1 (CW) 

13 test mode 2 

14 test mode 3 

15 test mode 4 

16 adapt, resolution 

17 TBO 

18 TBD 

19 TBD 

20 rain processing 

21 ACQ/TRK 

22 chirp mode 

23 CW mode 

24 trigger kill (SACU mode command) 

25 TWTA fault reset (SACU mode command) 
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TABLE IX. COMMON SENSOR LEVEL 1 PARAMETERS (WLEV1) 


1 . day of year 

38. 

LVPS 38V current 

2. seconds past midnight 

39. 

+28V S/C bus Isolated 

3. microseconds 

40. 

+28 V 

4. altitude rate 

41. 

+1SV 

altitude 

42. 

-15V 

6 . 

43. 

+7V 

7. altitude error 

44. 

-9V 

8. SWH 

45. 

+5 V 

9. A6C word 

46. 

-5.2V 

10. AGC gate amplitude 

47. 

+1.00V REF 

11. early gate amplitude 

48. 

0.657V REF 

12. late gate amplitude 

49. 

SACU PLO LOCK 

13. middle gate amplitude 

50. 

MTU temperature 

14. gate normalization factor 

51. 

DFB temperature #2 

15. noise gate amplitude 

52. 

spare 

16. plateau gate amplitude 

53. 

spare 

17. attitude gate amplitude 

■ 

• 

18. transmit power 

• 

• 

19. TWT beam current 

• 

• 

20. TWT cathode voltage 

59. 

spare 

21. TWT HVPS temperature 

60. 

relay status 

22. TWT collector temperature 

61. 

bits 1 through 8 spare 

23. receiver temperature 

62. 

parameter select 1 

24. noise gate amplitude 

63. 

parameter select 2 

25. plateau gate amplitude 

64. 

parameter select 3 

26. attitude gate amplitude 

65. 

parameter select 4 

27. transmit power 

66. 

spare 

28. UCFM temperature 

67. 

spare 

29. DDL temperature 

• 

• 

30. DDL ASSY temperature 

• 

* 

31. HSWS temperature 

• 

• 

32. DFB temperature #1 

114. 

altitude acceleration 

33. AT #1 temperature 

34. AT #2 temperature 

115. 

116. 

modified Julian date (uncorrected) 

35. ICU temperature 

36. SACU temperature 

117. 

118. 

modified Julian date (corrected) 

37. LVPS temperature 

119. 

time correction 
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154. spare 


120. year - 1900 

121. month 

122. day 

123. hour 

124. minute 

125. second 

126. altitude cal zone bias 

127. cal zone bias standard deviation 

128. altitude C.6. offset 

129. C.G. offset standard deviation 

130. altitude cal mode bias 

131. cal mode bias standard deviation 

132. AGC cal mode bias 

133. level 1 corrected altitude 

134. 

135. corrected AGC 

136. spacecraft attitude 
137 

* height above the reference ellipsoid 

138. 

139. status #1 

140. status #2 

141. status #3 

142. status #4 

143. status #5 

144. AGC cal mode standard deviation 

145. Cal/Atten status 

146 altitude adapt, res. correction 

147. altitude adapt, res. correction 
standard deviation 

148. AGC adapt, res. correction 

149. AGC adapt, res. correction 
standard deviation 

150. spare 

151. geodetic latitude 

152. longitude 

153. spare 


159 spare 

160. waveform sample #1 

161. waveform sample #2 


222. waveform sample #63 

223. rain subcom parameter #1 


242 rain subcom parameter #20 



TABLE X. COMMON GEOPHY LEVEL 2 PARAMETERS (WLEV2) 


1. orbit number 

2. altimeter number 

3. contamination flag 

4. compressed Interval 

5. mean compressed time 

6 . 

7. compressed latitude 

8. compressed longitude 


9. 

mean compressed ellipsoid height 

10. 


II 

It H 

11. 

compressed solar latitude 

12. 

mean compressed Instrument attitude 

13. 

number of attitude measurements used in compre 

14. 

compressed zone flag 

15. 

compressed world classification 

16. 

std dev compressed altitude 

17. 

mean compressed altitude 

18. 

II 

II 

II 

19. 

ll 

II 

* rate 

20. 

H 

II 

" error 

21. 

i 

II 

SWH 

22. 

II 

II 

AGO 

23. 

II 

It 

delta time 

24. 

II 

II 

delta altitude for Center Grav 

25. 

ll 

It 

delta altitude for Cal Zone 

26. 

II 

II 

delta altitude for Cal Mode 

27. 

H 

II 

delta AGC for Cal Mode 

28. 

11 

•1 

delta altitude for Adap Res 

29. 

II 

U 

delta AGC for Adap Res 

30. 

II 

II 

AGC gate 

31. 

H 

II 

early gate 

32. 

II 

II 

late gate 

33. 

M 

II 

middle gate 

34. 

spare 



35. 

mean compressed noise gate 

36. 

ll 

II 

plateau gate 

37. 

N 

H 

attitude gate 
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38. 

mean MTU temperature 


39. 

mean DFB temperature 


40. 

mean TUT collector 

temperature 

41. 

spare 

• 




• 

44. 

• 

spare 




45. 

std dev 

compressed 

altitude rate 

46. 

II 

II 

II 

ll 

error 

47. 

H 

ll 

ll 

SWH 


48. 

i« 

H 

ll 

AGO 


49. 

II 

II 

compressed 

AGC gate 

50. 

H 

ll 

compressed 

early gate 

51. 

ll 

ll 

compressed 

late gate 

52. 

H 

It 

compressed 

middle gate 

53. 

spare 




54. 

std dev 

compressed 

noise gate 

55. 

ll 

ll 

compressed 

plateau gate 

56. 

ll 

II 

compressed 

attitude gate 

57. 

spare 




58. 

compressed rain sub-comm 

1 (mean 

59. 


ti 

ll 

ii 

2 " 

60. 


ll 

it 

ll 

3 " 

61. 


ll 

ll 

ii 

4 " 

62. 


It 

ll 

H 

5 " 

63. 


H 

ll 

ii 

6 " 

64. 


ll 

ii 

it 

7 " 

65. 


ll 

ll 

It 

8 " 

66. 


ll 

ll 

II 

9 " 

67. 


ll 

ll 

ll 

10 " 

68. 


ll 

ll 

it 

11 " 

69. 


ii 

ll 

ll 

12 " 

70. 


ll 

il 

it 

13 " 

71. 


*i 

ll 

It 

14 " 

72. 


ll 

ll 

ll 

15 " 

73. 


ll 

ll 

ll 

16 " 

74. 


ll 

ll 

n 

17 " 

75. 


ll 

ll 

ii 

18 " 


77. 

compressed rain sub-comm 20 (mean) 

78. 

H 

II 

M 

1 (std dev) 

79. 

n 

It 

II 

2 

It 

It 

80. 

ii 

II 

II 

3 

It 

II 

81. 

H 

H 

H 

4 

II 

H 

82. 

ii 

II 

M 

5 

U 

U 

83. 

ii 

II 

II 

6 

H 

II 

84. 

ii 

II 

It 

7 

M 

II 

85. 

H 

II 

II 

8 

II 

II 

86. 

It 

H 

II 

9 

II 

II 

87. 

II 

II 

II 

10 

M 

II 

88. 

II 

II 

It 

11 

M 

H 

89. 

M 

II 

II 

12 

II 

II 

90. 

It 

II 

II 

13 

II 

II 

91. 

II 

II 

II 

14 

II 

II 

92. 

II 

II 

II 

15 

II 

II 

93. 

II 

II 

II 

16 

II 

II 

94. 

II 

II 

II 

17 

II 

II 

95. 

II 

II 

II 

18 

II 

II 

96. 

II 

II 

II 

19 

II 

II 

97. 

II 

II 

II 

20 

II 

II 

98. 

99. 

spare 

mean compressed transmit power 



100. std dev compressed transmit power 

101. compressed waveform sample no. 1 (mean) 


102. 

II 

II 

II 

2 

II 

103. 

II 

II 

II 

3 

II 

104. 

M 

II 

II 

4 

II 

105. 

II 

II 

II 

5 

II 

106. 

II 

II 

II 

6 

II 

107. 

II 

II 

H 

7 

II 

108. 

II 

II 

II 

8 

II 

109. 

II 

II 

II 

9 

II 

no. 

H 

II 

It 

10 

II 

111 . 

R 

11 

•1 

11 

II 

112. 

H 

If 

II 

12 

II 

113. 

II 

II 

II 

13 

•l 

114. 

II 

II 

It 

14 

II 

115. 

II 

•1 

II 

15 

M 
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116. compressed waveform sample no. 

117. 


118. 

119. 

120 . 
121 . 
122 . 

123. 

124. 

125. 

126. 

127. 

128. 

129. 

130. 

131. 

132. 

133. 

134. 

135. 

136. 

137. 

138. 

139. 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 

149. 

150. 

151. 

152. 

153. 

154. 


16 (mean) 

17 " 

18 " 

19 M 

20 " 

21 " 

22 " 

23 " 

24 " 

25 " 

26 " 

27 " 

28 " 

29 " 

30 *' 

31 " 

32 " 

33 " 

34 ” 

35 “ 

36 " 

37 " 

38 " 

39 " 

40 " 

41 " 

42 " 

43 " 

44 " 

45 " 

46 " 

47 M 

48 " 

49 " 

50 " 

51 " 

52 " 

53 " 

54 " 
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155. compressed waveform sample no. 55 (mean) 


156. 

It 

H 

H 

56 

H 


157. 

It 

n 

« 

57 

II 


158. 

M 

N 

H 

58 

H 


159. 

H 

M 

H 

S9 

ft 


160. 

H 

H 

•1 

60 

II 


161. 

M 

H 

H 

61 

H 


162. 

M 

M 

II 

62 

H 


163. 

It 

II 

H 

63 

II 


164. 

II 

II 

N 

1 (std dev) 

165. 

» 

H 

M 

2 

H 

W 

166. 

It 

H 

N 

3 

H 

M 

167. 

H 

II 

H 

4 

M 

II 

168. 

II 
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233. waveform processor waveform amplitude estimate 

234. waveform processor altitude correction 

235. waveform processor baseline estimate 

236. h 

237. SMH correction for SMH and attitude 

238. altitude correction for SMH, attitude and H 

239. spare 

240. std dev of SMH correction for SMH ami attitude 

241 . SMH Cal zone bias 

242. mean square slope 

243. Fresnel power reflection coefficient 
2 -' I. percent smooth area 

245. significant slope 

246. dominant wavelength 

247. dominant frequency 

248. dominant phase speed 

249. dominant wave number 

250. spare 

251. rain rate estimate 

252. rain rate quantity flag 

253. rain rate quality flag 

254. smoothed rain rate estimate 

255. std dev smoothed rain rate estimate 

256. atmospheric pressure at sea surface 

257. atmospheric water vapor at sea surface 

258. atmospheric temperature at sea surface 

259. FHOC data present flag 

260. altitude correction for barotroplc effects 

261. std dev of altitude correction for bar. effects 

262. geomagnetic latitude 

263. Ec minimum 

264. Ec maximum 

265. Beta 

266. solar* flux 

267. Ionospheric refraction altitude correction 

268. std dev of Ionospheric refraction altitude correction 

269. dry tropospheric refraction altitude correction 

270. std dev dry tropospheric refraction alt. correction 

271. wet tropospheric refraction altitude correction 
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272. std dev wet tropospheric refraction alt correction 

273. LAMMR quality data flag 

274. sigma naught atmospheric correction 

275. spare 

276. radar backscatter coefficient 

277. wind speed at 10 meters 

278. wind speed at 19i meters 

279. level 2 corrected altitude 

280. " " 

281. geold height 

282. tide height 

283. solid earth tide height 

284. altitude correction from EM bias 

285. std dev alt correction from EM bias 

286. EM sea state bias quality flag 

287. sea surface height 

288. altitude residual 

289. spare 

290. Ice sheet Night correction 

291. mean surface roughness 

292. sea surface height retrack quality flag 
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MODULE DESCRIPTIONS 


This section contains the detailed descriptions of the altimeter processing algo- 
rithms. 

The requirements and logic for each completed module of the altimeter processing 
algorithms are provided In this section. For each of these modules, the title and func- 
tion, Inputs and outputs, tables, and processing are presented. For the modules not 
completed functional requirements are presented. 


ALTIMETER MAIN DRIVER MODULE A A-0.0 


TITLE: PROGRAM ALTMTR 

FUNCTION: Main driver module for the altimeter software 

REFERENCE: Not applicable 

CONTROL: None 

SUPPORT: A.A-1.0 ALT1DR level 1 driver module 

A.A-2.0 ALT2DR level 2 driver module 
ACCESS: Not applicable 

INPUTS: A.D-1.85 executive parameter file 

A.D-1.72 EU conversion coefficient file 


u 


OUTPUTS: 


TABLES: 

ALGORITHM: 


COMMENTS: 


A. 0-1 .81 level 0 data file 

A. 0-1. 94 level 1 data file 

A. 0-1. 94 level 1 data file 

A. 0-2.91 level 2 data file 

Table 0.0a A.D-1.94 and A. 0-2.91 Header Record (see Appendix B) 

Table 0.0b A.D-1.94 Header Record #2 (see Appendix B) 

1. Read the execution- tine data files (A.D-1.85 and A.D-1.72) into arrays 
I EXEC and EUC 

2. Write header record(s) (see Tables 0.0a and 0.0b) on 

A.D-1.94 if IEXEC(I) equals 0 or 1 
A. 0-2. 91 if IEXEC(1) equals 0 or 2 

3. (IEX£C(1) .NE. 2) GO TO 4 

a. HeaJ header record from A.D-1.94 

b. GO TO 8 

4. Read one minor frame from the level 0 data file (A. 0-1. 81); if end of 
data encountered GO TO 12 

5. Process the level 0 data 

CALL ALT1DR 

6. Write the minor frame on the level 1 data file (A.D-1.94) 

7. Determine if level 2 data Is to be processed 

IF (IEXEC(l) .EQ. 1) GO TO 4 
GO TO 9 

8. Read one minor frame from the level 1 data file (A. 0-1 .94) j if end of 
data encountered GO TO 12 

9. Process the level 1 data 

CALL ALT20R (IFLAG) 

10. If IFLAG * 0, write the minor frame on the level 2 data file (A.D-2.91) 

11. Go back to process the next minor frame 

IF (IEXEC(l) .EQ. 0) GO TO 4 
GO TO 8 

12. Normal termination 

STOP 

1. The following TYPE statements must be included in this module 
DIMENSION EU(8,100,2) 

COMMON /EXECUT/ I EXEC (100) 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /GEOPHY/ WLEV2(325) 
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LEVEL 1 DRIVER MODULE 


A.A-1.0 


TITLE: SUBROUTINE ALT! DR 


FUNCTION: 

Driver module for the altimeter level 1 software 

REFERENCE: 

Not applicable 


CONTROL: 

A.A-0.0 

ALTMTR 

altimeter main driver module 

SUPPORT; 

A.A-1.1 

EUCONV 

EU conversion module 


A.A-1.2 

ALICOR 

level 1 altitude correction module 


A.A-1.3 

CALMOO 

cal mode module 


A.A-1.4 

ADPRES 

adaptive resolution module 


A.A-1.5 

LOCATE 

location classification module 


A.A-1.6 

HSMNTR 

health/status monitor module 

ACCESS: 

CALL ALT1DR 


INPUTS: 

IEXEC ■ 

array 

containing executive parameters 


EUC 

array 

containing EU conversion coefficients 


ITLM ■ 

array 

containing telemetry data 

OUTPUTS: 

ISTAT - 

array 

containing status words 


VILE VI « 

array 

containing level 1 output products 

TABLES: 

None 




ALGORITHM: 1. Convert counts to engineering units 

CALL EUCONV 

2. Determine the altimeter mode 

IF (I$TAT(9).EQ.l .OR. NCAL.EQ.l) GO TO 3 
IF (ISTAT(9).GE. 3 .AND. ISTAT(9).LE.6) GO TO 4 
IF (ISTAT(9).EQ.8 .OR. ISTAT(9).EQ.12) GO TO 5 
GO TO 6 

3. Cal mode data (NCAL » 1 for cal mode; NFINAL * 1 for final call to 
cal mode module) 

NCAL - 1 
NFINAL - 0 

IF ( ISTAT (9) .NE. 1) NFINAL « 1 
CALL CALMOO (NFINAL) 

IF (ISTAT(9) .EQ. 1) GO TO 6 

IF (1ST AT ( 9 ) .EQ. 8 .OR. I$TAT(9).EQ. 12) GO TO 5 

IF (ISTAT(9) .LT. 3 .OR. ISTAT(9).GT.6) GO TO 6 

4. Track mode data (NCAL ■ 0 for non -cal mode) 

NCAL - 0 
CALL ALICOR 
GO TO 6 
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COMMENTS: 


5. Adaptive resolution mode data 

CALL ADPRES 

6. Classify the subsatelllte point 

CALL LOCATE 

7. Monitor critical Instrument parameters 

CALL HEALTH 

8. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
module: 

COMMON /EXECUT/ I EXEC (100) 

COMMON /EUCOEF/ EUC(8,100) 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

DATA NCAL/O/ 

2. Spacecraft engineering data handling has not yet been defined 


EU CONVERSION MODULE A.A-1.1 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 

OUTPUTS: 


SUBROUTINE EUCONV 

Conversion of telemetry stream from counts to engineering units 
SEASAT-1 Radar Altimeter Phase I Engineering Assessment Report . 
MFC- 135-80-001, December 1980. 

A. A- 1.0 ALT1DR level 1 driver module 

EUTIME EU date and time conversion submodule 
EUALT EU altitude, SWH, & AGC conversion submodule 
EUGATE EU gate amplitude conversion submodule 
EUSTAT EU status extraction submodule 
EU1C0M EU engineering subcom #1 conversion submodule 
EU2C0M EU engineering subcom #2 conversion submodule 
EU3CQM EU engineering subcom #3 conversion submodule 
EURAIN EU rain subcom conversion submodule 
EUWFRM EU waveform, CN, or dump submodule 


A.A-1.1.1 
A.A-1.1. 2 
A.A-1.1. 3 
A.A-1.1. 4 
A.A-1.1. 5 
A.A-1.1. 6 
A.A-1.1. 7 
A.A-1.1 .8 
A.A-1.1. 9 
CALL EUCONV 
A.D-1.72 
ISTAT(25) 
None 


EU conversion coefficient file 
altimeter designator (1 or 2) 


TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 


None 

1. Extract the date and time 

CALL EUTIME 

2. Break out the status words 

CALL EUSTAT 

3. Load the appropriate EU coefficients Into array EUC from file A.D-1.72 
If I ALT f ISTAT(25); then set 

I ALT » I$TAT(25) 

4. Convert the altitude, altitude rate, altitude error. SWH, and AGC 

CALL EUALT 

5. Convert the gate amplitudes 

CALL EUGATE 

6. Convert the engineering subcom #1 

CALL EU1C0M 

7. Convert the engineering subcom #2 

CALL EU2C0M 

8. Convert the engineering subcom #3 

CALL EU3C0M 

9. Convert the rain subcom 

CALL EURAIN 

10. Process waveform. CW. or dump data 

CALL EUWFRM 

11. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
module 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /EUCOEF/ EUC(8.100) 

DATA / I ALT/ 0 


EU OATE AND TIME CONVERSION SUBMODULE A.A-1.1.1 

SUBROUTINE EUTIME 

Extraction of date and time from telemetry stream 
"SEASAT-A Sensor Data Record Tape Specification Interface Control Docu- 
ment." JPL 622-57, September 1978 
A.A-1.1 EUCONV EU conversion submodule 
A.A-1.1.1.1 IEUBIT EU bit extraction submodule 
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ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


CALL EUTIME 
ITLMO-4) 
IEXEC(2) 
WLEV1(1) 
ULEVK2) 
ULEY10) 
TMJOO 


time (GMT) 

year - 1900 

day of yaar 

seconds past midnight 

microseconds 

modified Julian date In (d,1.0x10~ 8 ) 


None 

1. Split the timing words between seconds and microseconds 

11 * IEU8IT(ITLM(3),10,5) 

12 » IEUBIT ( ITLM(3),4,1) 

2. Concatenate ITLM(l), ITLM(2), and II Into a 26-bit right justified 
string called J1 with ITLM(1) being the MSB and II being the LSB 

3. Concatenate 12 and ITLM(4) Into a 14-bit right justified string called 
J2 with 12 being the MSB and ITLM(4) being the LSB 

4. Compute the day of year and seconds and microseconds pest midnight 

WLEVl(l) - Jl/86400 + 1 

WLEV1(2) - FLOAT (01 ) - 86400.0*WLEV1(1 ) 

WLEV1 (3) » J2 

5. Compute the modified Julian date 

INDEX • IEXEC(2) - 74 
TREF ■ IREF( INDEX) 

TMJOO - (DBLE(WLEVl(3))*1.00-0.6+DBLE(WLEVl(2))) / 
86400.00+00 
1 + DBLE(WLEVL(1) + TREF 

6. End of algorithm 

RETURN 

1. The following TYPE statements mist be Included In the code of this 
submodule 


DOUBLE PRECISION TMJOO, TREF 
OIMENSION IREF (25) 

COMMON /EXECUT/ IEXEC(IOO) 

COWON /TLMTRY/ ITLM(IOO) 

COMMON /SENSOR/ ULEV1(300) 

EQUIVALENCE (TMJD0,WLEV1(115)) 

DATA IREF/ 0, 365, 731,1096,1461,1826,2192, 

1 2557,2922,3287,3653,4018,4383,4748, 

2 5114,5479,5844,6209.6575,6940.7305, 

3 7670,8036,8401,8766/ 
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EU BIT EXTRACTION SUBMODULE 


A.A-1. 1.1.1 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 


SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 


INTEGER FUNCTION IEUBIT 

To ext rt ,c bits II through 12 from I WORD 


Not applicable 
A. A— 1.1.1 EUTIME 
A. A- 1.1. 2 EUALT 
A. A- 1.1. 4 EUSTAT 
A.A-1.1.7 EU3COM 
None 


EU date and time conversion submodule 
EU altitude, SMI, A AGO conversion submodule 
EU status extraction submodule 
EU engineering subcom #3 conversion submodule 


0 - I EUBIT(IWORD,Il, 12) 

I WORD « the telemetry word (10 bits, right justified) 

11 » the first bit to be extracted 

12 * the last bit to be extracted 

IEUBIT * the extracted bits (right justified) 

None 

1. Extract the desired bits 


IEUBIT « FLD(36-I1»I1-I2+1,IW0RD) 

2. End of algorithm 
RETURN 


1. Step #1 Is machine-dependent (above is for HW625). Argument #1 
is the starting bit, argument #2 is the number of bits, argument 
#3 Is the array address. The HW625 numbers the bits from 0 to 35 
with 0 being the MSB. 

2. The 10 bits in the telemetry word (IWORD) are right justified. 

The numbering sequence used for II and 12 Is as follows: the LSB 
Is bit #1 and the MSB Is bit #10. 


3. This submodule Is Included here only for ease of specification of 
the algorithms. It may be replaced or eliminated to suit the 
particular hardware and software configuration chosen for the 
mission processing. 


EU ALTITUDE, SWH, A AGC CONVERSION SUBMODULE A. A- 1.1. 2 

SUBROUTINE EUALT 

EU conversion of altitude, altitude rate, altitude error, SWH, and AGC 
SEASAT-1 Radar Altimeter Phase I Engineering Assessment Report , 

WFC- 135-80-001, December 1980 
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CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


TABLES: 

ALGORITHM: 


A.A-1.1 


A.A-1. 1.1.1 


A.A-1.1. 2.1 


EUCONV EU conversion module 
IEUBIT EU bit extraction submodule 
EUPOLY EU polynomial fit submodule 


CALL EUALT 

ITLM(5-7) - 

ITLM(8) 

ITLM(9) 

ITLM(IO) « 

ITLM(ll) « 

EUC 

AGCW 

ALT 

WLEV1 (4) « 

WLEV1 (7) « 

WLEV1 (8) = 

WLEV1 (9) « 


altitude counts 
altitude rate counts 
altitude error counts 
SWH counts 
AGC word counts 
EU conversion coefficients 
AGC attenuator (see Table 1.1.2) 
level 0 altitude In (m.O.OOl) 
altitude rate In (m/s, 0.01) 
altitude error In (m,0.01) 

SWH In (m,0.01) 

AGC word In (dB,0.01) 


Table 1.1.2 AGC Word Lookup Table (see Appendix B) 
1. Convert the altitude from counts to meters 


2 . 


3. 


4 . 


a. Concatenate the 10 bits contained In each of ITLM(5), ITLM(6), 
and ITLM(7) into a right justified 30-bit string called II with 
ITLM(5) being the MSB and ITLM(7) being the LSB 

b. D * DBLE(FL0AT(I1)) 

ALT - D*El)C(5,l) + EUC(6,1) 

Convert the altitude rate from counts to meters per second 
II - IEUBIT(ITLM(8),10,10) 

IC ■ ITLM(8) - 1024*11 

WLEV1 (4) = EUPOLY(EUC(1,2),IC.O.O) 


Convert the altitude error from counts to meters 


11 

12 
13 
MAG 
C 

WLEV1(7) 

1 

2 


IEUBIT(ITLM(9),10,10) 

IEUBIT(ITLM(9),10,5) 

IEUBIT(ITLM(9), 4, 1) 

12-64*11 

2.0**(-I3) * MAG 

EUC(6,3) + C*(EUC(5,3) + C*(EUC(4,3) 
+ C*(EUC(3,3) + C*(EUC(2,3) 

+ C*(EUC(1,3)))))) + EUC (8,3) 


Convert the SWH from counts to meters 


WLEV1(8) - EUP0LY(EUC(1.4),ITLM(10),0.0) 
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COMMENTS: 


TITLE : 
FUNCTION: 
REFERENCE: 
CONTROL : 


SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


5. Convert the AGC word from counts to dB 

11 ■ IEUBIT ( ITLM( 11 )«10»5) 

12 ■ I EUBIT ( ITLM( 1 1 ) • 4 » 1 ) 

WLEV1 (9) » AGCW(IHl) + EUP0LY(EUC(1,5), 12, WLEV1(23)-TMPRCV) 
AGCW Is in array of AGC values and II Is the attenuator setting 
(see Table 1.1.2) 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule 

DOUBLE PRECISION D.ALT 
COMMON /EUCOEF/ EUC(8,100) 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /SENSOR/ WLEV1 (300) 

COMMON /TMPREF/ TMPRCV.7MPMTU 
COMMON /Til 2/ AGCW (64) 

EQUIVALENCE (ALT,WLEV1(5)) 


EU POLYNOMIAL CONVERSION SUBMODULE A.A-1.1.2.1 


FUNCTION EUPOLY 


EU polynomial conversion from counts to engineering units 


Not applicable 
A.A-1.1.2 EUALT 
A.A-1.1,3 EUGATE 
A. A- 1.1. 4 EUSTAT 
A . A- 1.1.5 EU1C0M 
A. A- 1.1. 6 EU2C0M 
A.A-1.1 .8 EURAIN 


EU altitude, SWH, & AGC conversion submodule 
EU gate amplitude conversion submodule 
EU status extraction submodule 
EU engineering subcom #1 conversion submodule 
EU engineering subcom #2 conversion submodule 
EU rain subcom conversion submodule 


None 

E - EUPOLY(C.L.T) 

C * array of EU conversion coefficients 

L * telemetry counts 

T « temperature In (°C,0.01) 

EUPOLY » engineering units 

None 

1. Convert counts to engineering units 
D « FLOAT(L) 
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COMMENTS: 


EUPOLY - C (6 ) + D*(C(5) + D*(C(4) ♦ D*(C(3) ♦ D*(C(2) 

♦ D*CCO)))))J * C(7)*T ♦ C(8) 

2. End of algorithm 
RETURN 

1. The polynomial evaluated Is 

EUPOLY - C(1)*L 5 ♦ C(2)*L 4 + C(3)*L 3 + C(4)*L 2 + C(5)*L 
+ C (6) + C(7)*T + C(8) 

2. The following TYPE statement must be Included In the code of this 
submodule 

DIMENSION C(8) 

3. The C array Is a column vector of the doubly subscripted array EUC 


EU GATE AMPLITUDE CONVERSION SUBMODULE A.A-1.1.3 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


SUBROUTINE EUGATE 


EU conversion of 


1. AGC gate amplitude 

2. early gate amplitude 

3. late gate amplitude 


4. middle gate amplitude 

5. gate normalization factor 

6. noise gate amplitude 

7. plateau gate amplitude 

8. attitude gate amplitude 

SEASAT-1 Radar Altimeter Phase I Engineering Assessment Report . 

WFC- 135-80-001, December 1980 

A.A-1.1 EUCONV EU conversion module 

A.A-1. 1.2.1 EUPOLY EU polynomial fit submodule 


CALL EUGATE 

ITLM( 12) 

ITLM(13) 

ITLM(14) 

ITLM( 15) ■ 

ITLM(16) 

ITLM( 17) 

ITLM(18) 

ITLM(19) 

ITLM(20) 


AGC gate amplitude counts 
early gate amplitude counts 
late gate amplitude counts 
middle gate amplitude counts 
gate normalization factor counts 
noise gate amplitude counts 
plateau gate amplitude counts 
attitude gate amplitude counts 
transmit power counts 
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OUTPUTS: 


TABLES: 

ALGORITHM: 


COMMENTS: 


EUC 

TMPRCV 

TMPMTU 

WLEVl(lO) 

HLEVl(ll) 

WLEV1 (12) 

WLEV1(13) 

WLEVK14) 

WLEV1(15) 

ULEVK16) 

HLEV1(17) 

WLEV1 (18) 

None 


EU conversion coefficients 

receiver reference temperature In (*C,0.1 ) 

MTU reference temperature In (*C,0.1) 

AGC gate amplitude In (v,0.1) 
early gate amplitude In (v,0.1) 
late gate amplitude In (v,0.1) 
middle gate amplitude In (v,0.1) 
gate normalization factor 
noise gate amplitude In (v,0.1) 
plateau gate amplitude In (v,0.1) 
attitude gate amplitude In (v,0.1) 
transmit power In (kw,0.1) 


1. Extract the AGC, early, late, and middle gate amplitudes 

WLEVL(IO) - ITLM(12) 

WLEVl(ll) ■ ITLM(13) 

WLEV1 < 1 2) - ITLM( 1 4) 

HLEV1 (13) - ITLM( 15) 

2. Extract the gate normalized factor 

WLEV1 (14) - ITLM(16) 

3. Convert the noise, plateau, and attitude gate amplitudes from counts 
to volts 

WLEV1 (15) « EUP0LY(EUC(1,6),ITLM(17),WLEV1(23)-TMPRCV) 

WLEV1 (16) - EUPOLY ( EUC (1,7), ITLM( 18) , VA.EV1 (23) -TMPRCV ) 
WLEV1(17) - EUP0LY(EUC(1,8),ITLM(19),WLEV1(23)-TMPRCV) 

4. Convert the transmit power from counts to kilowatts 

D ■ 1 . 14334068*(WLEV1 (50)-TMPMTU) ♦ ITLM(20) 

WLEV1 (18) - EUC (6,9) + D*(EUC(5,9) + D*(EUC(4.9) 

1 ♦ D*(EUC(3,9) + D*(EUC(2,9) + D*(EUC(1 ,9)))))) ♦ EUC(8,9) 

5. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule 

COMMON /EUCOEF/ EUC(8,100) 

COMON /TLMTRY/ ITLM(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /TMPREF/ TMPRCV, TMPMTU 
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EU STATUS EXTRACTION SUBMODULE 


A.A-1.1.4 


TITLE: SUBROUTINE EUSTAT 

FUNCTION: EU conversion of 

1. cal atten/SACU status 

2. status #1 

3. status #2 

4. status #3 

5. status #4 

6. status #5 

REFERENCE: SEASAT-1 Radar Altimeter Phase I Eng In— ring Assessment Report . 

WFC-1 35-80-001, December 1980 
CONTROL: A. A- 1.1 EUCONV EU conversion module 

SUPPORT: A.A-1.1.1.1 IEUBIT EU bit extraction submodule 

A.A-1.1.2.1 EUPOLY EU bit polynomial fit submodule 
ACCESS: CALL EUSTAT 

INPUTS: ITLM(21) ■ cal atten/SACU status 

ITLM(22) • status #1 
ITLM(23) - status #2 
ITLM{24) - status #3 
ITLM{25) - status #4 
ITLM(26) - status #5 

OUTPUTS: ISTAT(1-28) ■ broken out status words 

WLEV1 { 1 39 ) - status #1 
WLEV1 (140) - status #2 
HLEVK141) - status #3 
WLEV1 (142) - status #4 
VILEV1 (143) - status #5 

TABLES: Table A.1 TM Format (see Appendix A) 

ALGORITHM: 1. Decode the cal atten/SACU status 

ISTAT ( 1 ) - IEUBIT(ITLM(21 ),8,5) 

ISTAT(2) - IEU8IT(ITLM(21),3,3) 

I ST AT ( 3 ) » IEUBIT(ITLM(21),2,2) 

ISTAT(4) ■ IEUBIT( ITLM(21 ) , 1 , 1 ) 

2. Decode status #1 

ULEV1 (1 39) - ITLM(22) 

ISTAT (5) • IEUBIT(ITLM(22),1G.10) 

ISTAT(6) « IEUBIT( ITLM(22) ,9,9) 

ISTAT(7) - IEUBIT(ITLM(22) ,8,8) 
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COMMENTS: 


ISTAT(8) - IEUBIT( ITLM(22),7,7) 

ISTATO) - IEUBIT(ITLM(22),6,3) 

ISTAT(IO) ■ IEUBIT ( ITLM{22) ,2,1) 

3. Decode status #2 

WLEV1 (140) ■ ITLM(23) 

ISTAT(1 1) - IEUBIT(ITLM(23),10,5) 

I STAT (12) • IEUBIT(ITLM(23),4,1) 

4. Decode status #3 

WLEV1 (141 ) • ITLM(24) 

I ST AT ( 1 3 ) • IEUBIT ( ITLM(24 ) , 10,8) 

ISTATO 4) - IEU8IT(ITLM(24).7 f 7) 

ISTAT(IS) - 1EUBIT(ITLM(24),6,5) 

ISTAT(16) - IEUBIT( ITLM(24) ,4,4) 

ISTAT(17) - IEUBIT( ITLM(24) ,3,3) 

5. Decode status #4 

ULEV1 (142) ■ ITLM(2S) 

ISTAT(18) - IEUBIT(ITLM(25),8,8) 

I ST AT (19) - IEUBIT(ITLM(25),7.7) 

ISTAT (20) ■ I EUBIT ( ITLM(25) ,6,6) 

ISTAT (21 ) « I EUBIT ( ITLH(25 ) ,5. 5) 

I ST AT ( 22 ) - I EUBIT ( ITLM(25),4,4) 

I STAT (23) - IEUBIT(ITLM(25),3,3) 

ISTAT (24) - IEUBIT(ITLM(25),2,2) 

6. Decode status #5 

WLEV1 (143) ■ ITLM(26) 

I STAT (25) » IEUBIT(ITLM(26). 10,10) 

ISTAT(26) - IEUBIT(ITLM(26),9,6) 

ISTAT(27) - IEUBIT(ITLM(26) ,5,4) 

ISTAT(28) - IEUBIT( ITLM(26) ,3,1 ) 

7. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /STATUS/ I STAT (100) 

COMMON /SENSOR/ WLEV1(300) 
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EU ENGINEERING SUBCON #1 CONVERSION SUBMODULE 


A.A-1.1.5 


1 



TITLE; 

FUNCTION: 

REFERENCE: 


CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE EU1CQH 


EU conversion of engineering subcon #1 


SEASAT-1 Radar Altlweter Phase I Engineering Antiiwnt Report. 

MFC- 135-80 -001, Decenber 1980 

A.A-l.l EUCONV EU conversion Modulo 

A.A-1. 1.2.1 EUPOLY EU polyndMlal conversion subnodule 


CALL EU1C0M 
ITLM(27) 

EUC 

TMPRCV 

TMPMTU 

ISTAT(ll) 

HLE VI (19-37) 


EU subcon #1 counts 

EU conversion coefficients 

receiver reference tenperature In (*C,0.1) 

MTU reference tenperature In (*C,0.1) 

subcon counter (1 to 20) 

subcon fl in engineering units 


Table A.1 TM Format (see Appendix A) 


1. Branch to the appropriate subcon word 

N • ISTAT(ll) 

GO TO (2,3,4 20,21), N 

2. Convert the TWT bean current fron counts to anps 

WLEV1 (19) • EUPOLY(EUC(1,10).ITLM(27),0.0) 

GO TO 22 

3. Convert the TWT cathode voltage fron counts to kilowatts 

WLEV1(20) - EUP0LY(EUC(1,11),ITLN(27),0.0) 

GO TO 22 

4. Convert the TWT HVPS tenperature fron counts to *C 

WLEVK21) - EUPOLY(EUC(1,12)ITLM(27),0.0) 

GO TO 22 

5. Convert the TWT collector tenperature fron counts to *C 

WLEVK22) • EUP0LY(EUC(1,13).ITLM(27),0.0) 

GO TO 22 

6. GO TO 22 


7. Convert the receiver tenperature fron counts to *C 
WLEVK23) • EUP0LY(EUC(1.14),IYLM(27),0.0) 

GO TO 22 


8. Convert the noise gate anplltude fron counts to volts 

WLEV1(24) • EUP0LY(EUC(1,15),ITLM(27),WLEV1(23)-TMPRCY) 
GO TO 22 
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9. Convert the plateau gate amplitude from counts to volts 

WLEV1(2S) - EUPOLY(EUC( 1,16), ITLM(27 ) ,WL£V1 (23)-TMPKV) 

GO TO 22 

10. Convert the attitude goto amplitude from counts to volte 

HUE VI (26) * EUP0LY(£'JC(1 ,17),ITUt(27),NLEV1(23)»TMPRCV) 

GO TO 22 

11. Convtrt tht transmit power from counts to kilowatts 

0 - 0. 36586901 76*(HLEV1(50)-THPHTU) ♦ ITLM(27) 

MLEVK27) - EUC (6* 18) 4 D*(EUC(5,18) 4 D*(EUC(4.18) 

1 ♦ D*(EUC(3,18) ♦ D*(EUC(2,18) 4 D*(EUC(1,18)))))) 4 EUC(8,18) 
GO TO 22 

12. Convert the UCFH temperature from counts to °C 

WLEV1 (28) • EUP0LY(EUC(1 ,19) ,ITLH(27),0.0) 

GO TO 22 

13. Convert the DDL temperature from counts to *C 

MLEV1(29) - EUP0LY(EUC(1,20),ITLN(27),0.0) 

GO TO 22 

14. Convert the DOC ASSY temperature from counts to “C 

WIEVK30) - EUPOLY(EUC(1,21),ITLM(27),C.O) 

GO TO 22 

15. Convert the HSWS temperature from counts to °C 

WLEV1 ( 31 ) - EUPOLY(EUC(1 ,22),ITLM(27),0.0) 

GO TO 22 

16. Convert the DFB temperature II from counts to *C 

WLEV1 (32) - EUPOLY ( EUC( 1 ,23) ,ITLM{27),0.0) 

GO TO 22 

17. Convert the ATI1 temperature from counts to *C 

WLEV1 ( 33) - EUPOLY ( EUC (1,24), ITLM( 27) ,0.0) 

GO TC 22 

18. Convert the ATI2 temperature from counts to # C 

WLEV1{34) • EUPOLY ( EUC ( 1 • 25 ) , ITLM( 27), 0.0) 

GO TO 22 

19. Convert the I CD temperature from counts to *C 

WLEV1(35) • EUP0LY(EUC(1.26).ITU1(27),0.0) 

GO TO 22 

20. Convert the SACU temperature from counts to °C 

WLEV1(36) • EUP0LY(EUC(1,27),ITLM(27),0.0) 

GO TO 22 


V) 


21. Convert the LVPS temperature from counts to °C 

WLEV1 (37) » EUPOLYfEUCO^eMTLMtt/J.O.O) 

22. End of algorithm 

RETURN 

COMMENTS: 1. The following TYPE statements must be Included In the code of this 

submodule 

COMMON /EUCOEF/ EUC(8,100) 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ ULEV1(300) 

COMMON /TMPREF/ TMPRCV.TMPMTU 


EU ENGINEERING SU8C0M #2 CONVERSION SU8MOOULE A.A-1.1.6 


TITLE: 

FUNCTION: 

REFERENCE: 

SUBROUTINE EU2C0M 

EU conversion of engineering subcom #2 

SEASAT-1 Radar Altimeter Phase I Engineering Assessment Report 


WFC- 135-80-001 , December 1980 

CONTROL: 

A.A-1.1 

EUCONV EU conversion module 

SUPPORT: 

A.A-1.1.2.1 

EUPOLY EU polynomial conversion submodule 

ACCESS: 

CALL EU2C0M 


INPUTS: 

ITLM(28) 

= EU subcom #2 counts 


EUC 

= EU conversion coefficients 


ISTAT(ll) 

= subcom counter (1 to 20) 

OUTPUTS: 

WLE VI (38-51) 

* subcom #2 In engineering units 

TABLES: 

Table A.l TM Format (see Appendix A) 

ALGORITHM: 

1. Branch to the appropriate subcom word 


N = ISTAT(ll) 

GO TO (2, 3, 4,..., 20,21), N 

2. Convert the LVPS 38V current from counts to amps 

WLEV1 (38) - EUPOLY(EUC(1,29),ITLM(28),0.0) 

GO TO 22 

3. Convert the +28V S/C bus Isolated from counts to volts 

WLEV1 (39) = EUP0LY(EUC(1 ,30)»ITLM(28),0.0) 

GO TO 22 

4. Convert the +28V from counts to volts 

WLEV1 (40) = EUP0LY(EUC(1 ,31 ),ITLM(28),0.0) 

GO TO 22 
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5. Convert the +15V from counts to volts 

WLEV1 (41 ) - EUPOLY(EUC(1,32),ITLM(28),0.0) 
GO TO 22 

6. Convert the -15V from counts to volts 

WLEV1 (42) » EUP0LY(EUC(1,33),ITLM(28),0.0) 
GO TO 22 

7. Convert the +7V from counts to volts 

WLEV1 (43) » EUPOLY(EUC( 1 ,34) ,ITLM( 28). 0.0) 
GO TO 22 

8. Convert the -9V from counts to volts 

WLEV1 (44) - EUPOLY(EUC(l,35) ,ITLM(28),0.0) 
GO TO 22 

9. Convert the +5V from counts to volts 

WLEV1 (45) - EUP0LY(EUC(1,36),ITLM(28),0.0) 
GO TO 22 

10. Convert the -5.2V from counts to volts 

WLEV1 (46) = EUP0LY(EUC(1 ,37),ITLM(28),0.0) 
GO TO 22 

11. Convert the +1.00V REF from counts to volts 

WLEV1 (47) ■ EUP0LY(EUC(1,38),ITLM(28),0.0) 
GO TO 22 

12. Convert the 0.657V REF from counts to volts 

WLEV1 ( 48) - EUPOLY (EUC( 1,39), ITLM( 28) ,0.0) 
GO TO 22 

13. Convert the SACU PLO LOCK from counts to volts 

WLEV1 (49) « EUPOLY(EUC(l ,40),ITLM(28),0.0) 
GO TO 22 

14. Convert the MTU temperature from counts to °C 

WLEV1 (50) « EUP0LY(EUC(1 ,41 ),ITLM(28),0.0) 
GO TO 22 

15. GO TO 22 

16. Convert the DFB temperature #2 from counts to °C 

WLEV1 (51) » EUPOL Y ( EUC ( 1 ,42),ITLM(28),0.0) 
GO TO 22 

17. GO TO 22 

18. GO TO 22 

19. GO TO 22 

20. GO TO 22 

21. CONTINUE 


52 


COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


22. End of algorithm 
RETURN 

1. The foil owing TYPE statements must be Included In the code of this 
submodule 

COMMON /EUCOEF/ EUC(8,100) 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 


EU ENGINEERING SUBCOM #3 CONVERSION SUBMODULE A.A-1.1.7 


SUBROUTINE EU3C0M 


EU conversion of engineering subcom #3 


SEASAT-1 Radar Altimeter Phase I Engineering Assessment Report . 

NFC- 135-80-001, December 1980 

A.A-1.1 EUCONV EU conversion module 

A.A-1. 1.1.1 IEUBIT EU bit extraction submodule 

CALL EU3C0M 

ITLM(29) - EU subcom #3 counts 
ISTAT(ll) ■ subcom counter (1 to 20) 

ISTAT(29-42) « subcom #3 statuses 
Table A.l TM Format (see Appendix A) 

1. Branch to the appropriate subcom word 

N « ISTAT(U) 

IF (N .GT. 6) GO TO 8 
GO TO (2, 3, 4, 5, 6, 7), N 

2. Decode word #1 

ISTAT (29) « IEUBIT ( ITLM(29) ,3,3) 

ISTAT ( 30) « IEUBIT(ITLM(29),2,2) 

ISTAT ( 31 ) - IEUBIT(ITLM(29),1,1) 

GO TO 8 

3. GO TO 8 

4. Decode word #3 

ISTAT(32) » IEUBIT(ITLM(29),10,9) 

ISTAT (33) - I EUBIT ( ITLM( 29) ,8,7) 

ISTAT(34) - IEUBIT(ITLM(29),6,3) 

GO TO 8 
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COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


5. Decode word #4 

ISTAT( 35) - IEUBIT(ITLM(29),10,7) 

ISTAT(36) - IEUBIT( ITLM(29),6,3) 

GO TO 8 

6. Decode word #5 

ISTAT (37) ■ IEUBIT( ITLM(29),10,9) 

ISTAT(38) - IEUBIT { ITLM( 29 ) ,8, 7 ) 

ISTAT ( 39) - IEUBIT(ITLM(29),6,5) 

ISTAT(40) - IEUBIT(ITLM(29),4,3) 

GO TO 8 

7. Decode word #6 

I ST AT (41 ) - IEUBIT ( ITLM( 29) .10,7) 

ISTAT(42) - IEUBIT(ITLM(29),6,3) 

8. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule 

COMMON /TLMTRY/ ITLM(IOO) 

COMMON /STATUS/ ISTAT(IOO) 


EU RAIN SUBCOM CONVERSION SUBMODULE A.A-1.1.8 

SUBROUTINE EURAIN 

EU conversion of the rain detection subcom 

Goldhlrsh, J. and E. Walsh, "Precipitation Measurements from Space Using A 
Modified Seasat Type Radar Altimeter," JHU/APL S1R81U-022, May 1981. 

A. A- 1.1 EUCONV EU conversion module 
A.A-1.1.2.1 EUPOLY EU polynomial fit submodule 
CALL EURAIN 

EUC - telemetry data 

ITLM ■ telemetry data 

ISTAT ■ status words 

WLEV1 * level 1 output products 

WLEV1 * level 1 output products 

None 

1. End of algorithm 
RETURN 
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COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


1. The following TYPE statements must be Included In the code of this 
submodule 

COMMON /EUCOEF/ EUC(8,100) 

COMMON /TLKTRY/ ITIN(IOO) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

2. Algorithm will be defined at a later date 

3. If subcom counter skips, set output parameter to >9999 


EU WAVEFORM, CW, OR DUMP SUBMODULE A.A-1.1.9 

SUBROUTINE EUWFRM 

EU processing of waveform, CW, or dump data 
None 

A. A- 1.1 EUCONV EU conversion module 
None 

CALL EUWFRM 

EUC - EU conversion coefficients 

ITLM * telemetry data 

ISTAT * status words 

WLEV1 ■ level 1 output products 

None 

1. Check for CW code 

IF (ISTAT(18) .EQ. 0) GO TO 5 

2. Check for memory dump 

IF ( ISTAT(6) .EQ. 1) GO TO 6 

3. Extract the waveform samples 

DO 10 I « 31,93 
J *1+129 

10 WLEVl(J) • ITLM(I) 

GO TO 7 

5. Process CW mode 

GO TO 7 

6. Process memory dump 

GO TO 7 

7. End of algorithm 

RETURN 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 


OUTPUTS: 


1. The following TYPE statements must be included In the code of this 
submodule 

COMMON /EUCOEF/ EUC(8,100) 

COMMON /TLMTRY/ ITLH(IOO) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEVl (300) 

2. Algorithms for CW mode and memory dump will be defined at a later date 


LEVEL 1 ALTITUOE CORRECTION MOOULE 


A.A-1.2 


SUBROUTINE ALICOR 

To act as the driver module for the calculation of the sensor-related 
corrections to the altitude, the AGC, and the time, for all non-callbra- 
tlon and non-adaptlve resolution mode data 
Not applicable 

ALT1DR level 1 driver module 
TIMCOR time tag correction submodule 
CZBIAS cal zone bias submodule 
OFFSET C.G. offset submodule 
CW1IAS cal mode bias submodule 


A.A-1.0 
A.A-1.2.1 
A.A-1.2.2 
A.A-1.2.3 
A.A-1.2.4 
CAL ALICOR 
ALTO 
TMJDO 
I STAT ( 25 ) 
WLEV1 (9) 
WLEV1 (119) 
WLEVl (126) 
WLEV1 (128) 
WLEVl (130) 
WLEVl (132) 
ALT1 
TMJD1 

WLEVl (120) 
WLEVl (121) 
WLEVl (122) 
WLEVl (123) 
WLEVl (124) 


uncorrected altitude in (m, 0.001) 
uncorrected modified Julian date in (d, 1.0x10 
altimeter designation flag (1 or 2) 
uncorrected AGC In (dB,0.01) 
time tag correction in (s, 0.0001) 
altitude cal zone bias In (m,0.001) 
altitude C.G. offset In (m, 0.001) 
altitude cal mode bias In (m, 0.001) 

AGC cal mode bias in (dB.0.01) 
corrected altitude In (m.0.001) 


• 8 \ 


corrected modified Julian date in (d, 1.0x10 
year - 1900 
month 
day 
hour 
minute 


-8 
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TABLES: 

ALGORITHM: 


WLEVT (125) - second 

ULEV1 (1 35) * corrected AGC In (dB.0.01) 

(tone 

1. Determine the net tine teg correction 

CALL TINCOR 

2. Correct the modified Julian date 

DELT - DBLECWLEV1019)) / 86400.00+00 

TMJD1 » TNJDO + DELT 

3. Determine the hour 

MUD - TMJD1 

DHOUR - (TMJD1-MJD) * 24.00+00 

I HOUR - DHOUR 

HLEV1 (123) - I HOUR 

4. Determine the minute 

DMIN - (DHOUR- I HOUR) + 60.00+00 

ININ - DMIN 

MLEV1 ( 1 24) - IMIN 

$. Determine the second 

WLEV1 (125) - (DMIN- ININ) * 60.00+00 

6. If same day. and same altimeter as last time, skip to Step #10 

IF ( I HOUR .LT. 12) NJD ■ NJD + 1 
IF (ISTAT(25) ,NE. LALT) GO TO 7 
IF (MOD .EQ. LMJD) GO TO 10 

7. Determine the year 

ICHECK - 0 
DO 100 I - 2,25 
J » I - 1 

IF (MJD .LT. IREF(I)) GO TO 150 
100 CONTINUE 
150 I YEAR « J + 74 
WLEV1 (120) « I YEAR 

8. Determine the month 

K - 1 

IF (M0D(IYEAR,4) .EQ. 0) K - 2 
IDOY - MOD - IREF(J) 

DO 200 I - 2.12 
J ■ I - 1 

IF (IDOY .LT. JREF(I.K)) GO TO 250 
200 CONTINUE 


COMMENTS: 


250 I MON ■ J 

WLEV1 { 1 21 ) - I MON 

9. Determine the day 

IDAY - IDOY - JREF (IMON.K) 

WLEV1 (122) « IDAY 

10. Determine If the altitude and AGC correction must be computed 

IF (ICHECK .EQ. 1) GO TO 15 

11. Determine the cal zone bias 

CAL CZBIAS 

12. Determine the C.G. offset 

CALL OFFSET 

13. Determine the cal mode bias 

CALL CMBIAS 

14. Check the validity of the altitude and AGC corrections 

0H1 » WLEV1 (126) 

DH2 « WLEV1 (128) 

DH3 * WLEV1 (130) 

DAGC = WLEV1 (132) 

IF (DH1 .LT. -9000.0) DH1 * 0.0 

IF (DH2 .LT. -9000.0) DH2 » 0.0 

IF (DH3 .LT. -9000.0) DH3 “ 0.0 

IF (DAGC .LT. -9000.0) DAGC « 0.0 
DALT « DBLE ( 0H1 +DH2+DH3 ) 

IF ( DALT. GT.- 9000. OD+OO .AND. DAGC. GT. -9000.0) ICHECK * 1 
LALT * ISTAT(25) 

LMJD « MJD 

15. Apply the altitude and AGC corrections 

ALT1 » ALTO + DALT 

WLEV1 (135) - WLEV1 (9) + DAGC 

16. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
module: 

DOUBLE PRECISION TMJDO.TMJDl , DELT, ALTO, ALT 1 ,DALT 
DIMENSION IREF(25),JREF(12.2) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

EQUIVALENCE (ALT0,WLEV1( 5)) . (TMJD0.WLEV1 (1 15)) 
EQUIVALENCE (ALT1 ,WLEV1 (133)) , (TMJD1 .WLEV1 ( 11 7 ) ) 
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DATA LNJD/-9999/ , L ALT/ -9999/ 

DATA IREF/ 0, 365, 731.1096,1461,1826,2192, 

1 2557,2922,3287,3653,4018,4383,4748, 

2 5114,5479,5844,6209.6575,6940,7305, 

3 7670,8036,8401,8766/ 

DATA JREF/ 0, 31, 59, 90,120,151,181,212, 

1 243,273,304,334, 0, 31, 60, 91, 

2 121,152,182,213,244,274,305,335/ 

2. The year, month, and day, and the altitude and AGC corrections (Step 
#7 through Step #14) are only computed once per day 

3. The altitude and AGC corrections are scheduled to be computed only 
once per day. However that calculation might be required more fre- 
quently because of mission operation design. 


TIME TAG CORRECTION SUBMODULE A.A-1.2.1 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL : 
SUPPORT: 
ACCESS: 
INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE TIMCOR 


To compute the time tag correction, which accounts for the difference 
between the telemetry stream time tag (the time at which the reflected 
pulse reaches the telemeter) ami the time at which the altimeter pulse 
is actually reflected from the earth's surface. The correction con- 
sists of a constant component, which Is mode dependent, and a variable 
component, which Is altitude dependent. 

"Seasat Algorithm Development Facility Altimeter Sensor Algorithm 
Specifications," JPL 622-207 Rev. A, March 1980 
A.A-1.2 AL1C0R level 1 altitude correction module 
None 


CALL TIMCOR 

ISTAT(9) • operate status 

ISTAT(25) ■ altimeter designator (1 or 2) 

ALTO ■ uncorrected altitude In (m, 0,001) 

DTC ■ array of time corrections from Table 1.2.1 

ALTLO * altitude lower limit In (m,1.0) 

ALTHI ■ altitude higher limit In (m,1.0) 

HLEV1 (119) » time tag correction In (s, 0.0001) 

Table 1.2.1 Constant Time Tag Correction (see Appendix B) 
1. Check Input values 

IF (ISTAT(9).LT.l .OR. ISTAT(9).GT.4) GO TO 5 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


IF (ISTAT(25).LT.1 .OR. I$TAT(2S).GT.2) GO TO 5 
IF (ALTO.LT.ALTLO .OR. ALTO.GT.ALTHI) GO TO 5 

2. Determine the constant time tag correction 

MODE » ISTAT(9) 

I ALT - ISTAT(25) 

DTI • DTC(MOOE.IALT) 

3. Determine the variable time tag correction 

0T2 - ALTO / (C*2.0tHOO) 

4. Determine the net time tag correction 

WLEV1(119) - DTI + DT2 
GO TO 7 

5. Input out of range - print warning message and all Input variables 

6. WLEV1(119) » -9999.0 

7. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule 

DOUBLE PRECISION ALTO.C 
COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /ALTLIM/ ALTLO.ALTHI 
COMMON /T1 21 / DTC(4,2) 

EQUIVALENCE (ALT0.WLEV1 (5)) 

DATA C/2. 997924 58D+08/ 


CAL ZONE BIAS SUBMODULE A.A-1.2.2 


SUBROUTINE CZBIAS 

To set the altitude cal zone bias* which maximizes the absolute accuracy 
of the altitude measurement, and Its associated standard deviation. The 
correction Is based upon the analysis of altimeter data segments taken 
directly over laser tracking stations. 

None 

A.A-1.2 AL1C0R level 1 altitude correction module 
(tone 

Call CZBIAS 

ISTAT(25) ■ altimeter designation flag {1 or 2) 

TMJD1 - modified Julian date In (d.l.OxlO* 8 ) 
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OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


OCZB ■ array of tine from Table 1.2.1 

CZB • array of cal zone biases from Table 1.2.2 

SCZB ■ array of standard deviations from Table 1.2.2 

HLEV1(126) • altitude cal zone bias In (m, 0.001) 

WLEV1(127) ■ cal zone bias standard deviation In (m, 0.001) 

Table 1.2.2 Cal Zone Bias and Standard Deviation (see Appendix B) 

1. Check Input values 


IF (ISTAT(25).LT.l .OR. ISTAT(25).GT.2) GO TO 4 
IF (TNJD1.LT.0. 00+00 .OR. TMJD1.GT. 1.00+05) GO TO 4 


2. Select the proper table entry Index 
DO 100 I • 2,5 
K - I - 1 

IF (DCZB(I) .GT. TMJD1) GO TO 3 
100 CONTINUE 
K - 5 


3. Set the cal zone bias and Its standard deviation 

I FLAG - ISTATC25) 

WLEV1 (126) - CZB(K.IFLAG) 

HLEVH127) ■ SCZB(K.IFLAG) 

GO TO 6 

4. Input out of range - print warning message and all Input variables 

5. WLEV1 (126) - -9999.0 
HLEVK127) - -9999.0 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of 
this submodule: 

DOUBLE PRECISION TMJDl.DCZB 
COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /T122/ DCZB(5).CZB(5,2),SCZB(5,2) 

EQUIVALENCE (TMJD1.HLEV1 (117)) 

2. This submodule will be accessed only once per day 
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CENTER OF GRAVITY OFFSET SU6M00ULE 


A.A-1.2.3 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


COMCNTS: 


SUBROUTINE OFFSET 

To sot the altitude canter of gravity offset correction and Its standard 
deviation. The correction depends upon the expenditure of onboard fuel 
and the position of each of the altleeters with respect to the center of 
gravity of the spacecraft. 

None 

A. A- 1.2 All COR level 1 altitude correction module 


None 


CALL OFFSET 

ISTAT(25) 

TMJD1 

DCGO 

CGO 

SCGO 

WLEV1 (128) 
WLEV1(129) 
Table 1.2.3 


• altimeter designation flag (1 or 2) 

■ modified Julian date In (d.l.OxlO" 8 ) 

■ array of time from Table 1.2.3 

■ array of C.G. offsets from Table 1.2.3 

- array of standard deviations from Table 1.2.3 

■ altitude C.G. offset In (m.0.001) 

■ C.G. offset standard deviation in (m, 0.001) 

C.G. Offset and Standard Deviation (see Appendix B) 


1. Check Input values 

IF (ISTAT(25).LT.l ,0R. ISTAT(25).GT.2) GO TO 4 
IF (TMJD1 .LT. 0.00*00 .OR. TMJD1.GT. 1.00*05) GO TO 4 


2. Select the proper table entry Index 


00 100 I - 2.10 


K » I - 1 

IF (DCGO(I) .GT. TMJD1) GO TO 3 
100 CONTINUE 
1C - 10 

3. Set the C.G. offset and standard deviation 
I FLAG • ISTAT (25 ) 

ULEV1 (128) - CGO(K.IFLAG) 

WLEV1 ( 129) • SCGO ( K . I FLAG ) 

GO TO 6 


4. Input out of range - print warning message and all Input variables 

5. NLEV1(128) » -9999.0 
MLEVK129) - -9999.0 

6. End of algorithm 

1. The following TYPE statements must be Included In the code of this 
submodule: 
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DOUBLE PRECISION TMJD1 ,DCGO 
COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /T1 23/ DCGO(lO).CGO(10.2).SC6O(1O,2) 

EQUIVALENCE (TMJDI ,WLEY1(5)) 

2. This submodule Is scheduled to be accessed only once per day. 
However, the C.6. offset night be required more frequently. 


CAL MODE BIAS SU6MOOULE 


A.A-1.2.4 


TITLE: 

FACTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


TABLES: 

ALGORITHM: 


SUBROUTINE CMBIAS 

To set the altitude and AGC cal mode bias corrections and standard devia- 
tions. The bias corrections maximize the relative accuracies In order to 
maintain consistent output products. 

None 


A.A-1.2 ALT COR level 1 altitude correction module 
None 


CALL CMBIAS 

ISTAT(25) 

TMJD1 

TCMB 

CMB 

SCMB 

AGCB 

SAGCB 

WLEV1(130) 

HLEV1(131) 

HLEV1(132) 

WLEV1 (144) 

Table 1.2.4 


- altimeter designation flag (1 or 2) 

- modified Julian date In (d, 1.0x10“®) 

■ array of times from Table 1.2.4 

■ array of altitude biases from Table 1.2.4 

■ array of standard deviations from Table 1.2.4 

• array of AGC biases from Table 1.2.4 

> array of AGC standard deviations from Table 1.2.4 

• altitude cal mode bias In (m,0,001) 

■ cal mode bias standard deviation In (m,0.001) 

• AGC cal mode bias in (dB.0.01) 

■ AGC cal mode bias standard deviation In (dB,0.01 ) 

Cal Mode Biases and Standard Deviations (see Appendix B) 


1. Check Input values 


IF (I$TAT(25).LT,1 .OR. ISTAT(25).GT.2 GO TO 4 
IF (TMJD1 .LT. 0.00+00 .OR. TNJD1.GT.1 .00+05) GO TO 4 


2. Select the proper table entry Index 
DO 100 I - 2,5 


K - I - 1 


IF (DCMB(I) .GT. TMJ01 ) GO TO 3 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 
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100 CONTINUE 
K ■ 5 

3. Set the cal nod* blasts and standard deviation 

I FLAG • I STATUS) 

NLEV103C) - CMB(K,IFLAG) 

WLEV1031) • SCMB(K.IFLAG) 

WLEV1 (132) - AGCB(K, I FLAG) 

WLEV1 (144) - $AGCB(K,IFLAG) 

GO TO 6 

4. Input out of ran 9 « - print warning message and all Input variables 

5. ULEV1(130) • -9999.0 
MLEVK131) - -9999.0 
HIE VI (132) - -9999.0 
WLEV1044) • -9999.0 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule: 

DOUBLE PRECISION TM0D1 ,DCMB 
COfMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ ULEV1(300) 

COMMON /T124/ DCNB(5).C«($,2),SCMB(5,2),AaCB(5.2).$AGC8(5,2) 

EQUIVALENCE (TMJD1,NLEV1(5)) 

2. This submodule will be accessed (wily wire per day 


CAL MOOE MODULE 


A.A-1.3 


SUBROUTINE CALMOO 

To control the processing and evaluation of all calibration node data, 
which Is designed to detect changes In altitude, AGC, and other parameters 
due to aging, temperature and voltage fluctuations, etc. The cal mode 
date, normally commanded once per day, will last for 60 seconds, the first 
44 seconds being Cal I and the lest 16 seconds being Cal II. 


A.A-1.0 

ALT! DR 

A. A- 1.3.1 

CALI 

A.A-1.3. 2 

CAL2 

A.A-1.3.3 

TREND 


level 1 driver module 
Cal I processing submodule 
Cal II processing submodule 
trend file processing submodule 


ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


CALL CALMOD (NFINAL) 

NFINAL * 0 for all but last Cal II entry 
» 1 for last Cal II entry (wrap up) 

ISTAT(22) « Cal I Indicator 
ISTAT(23) » Cal II Indicator 
None 
None 

1. Determine the Cal type (NCAL * 1 fo»* Cel I, NCAL « 2 for Cal II, 
NCAL = -1 for improper Input) 

IF (NFINAL .EQ. 1) GO TO 5 
NCAL * -1 

IF (ISTAT(22) .EQ. 1) NCAL B 1 
IF (ISTAT(23) .EQ. 1) NCAL - 2 
IF (NCAL .EQ. 1) GO TO 2 
IF (NCAL .EQ. 2) GO TO 3 
GO TO 7 

2. Process Cal I data if present 

CALL CALI (0) 

MCAL = 1 
GO TO 8 

3. Wrap up Cal I data if required 

!F (MCAL .EQ. 1) CALL CALI (1) 

4. PrKess Cal II data 

CALL CAL2 (0) 

MCAL = 2 
GO TO 8 

5. Wrap up Cal II data if required 

CALL CAL2 (1) 

6. Process Trend File 

CALL TREND 
GO TO 8 

7. Input out of range - print warning message and all input variables 

8. End of algorithm 

RETURN 

1. The following TYPE statement must be Included In the code of this 
submodule: 

COMMON /STATUS/ ISTAT(IOO) 

2. MCAL is the type of calibration for the previous module entry 
(MCAL = 1 for Cal I or MCAL * 2 for Cal II) 
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CAL I PROCESSING SUBMODULE 


A.A-1.3.1 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGOR “KM: 


SUBROUTINE CALI 

To process all of the Cal I calibration mode data. Cal I Is designed to 
measure transmitter/receiver power and RF pathlength changes and to 
verify the shape of the transmitted pulse. It will occur during the 
first 44 seconds of the calibration mode and will be divided into 11 
steps oV 4 seconds each. 

None 

A.A-1.3 CAL MOD cal mode monitor module 


A.A-1.3. 1.1 

STAT 

cal mode statistical accumulation submodule 

CALL CALI 

(IEND) 


I END 

3 

0 for all but last Cal I entry 


■ 

1 for last Cal I entry (wrap up) 

ISTAT(l) 

3 

command out to SACU 

ISTAT(ll) 

3 

channel select (1 to 20) 

ISTAT(25) 

3 

altimeter designator (1 or 2) 

ALT 

3 

altitude in (m, 0.001) 

TMJD 

3 

modified julian date In (d, 1.0x10'®) 

WLEV1 

X 

level 1 output products 

XL 

3 

Cai 

I parameter lower edit limit array 

XU 

S 

Cal 

I parameter upper edit limit array 

XE 

S 

Cal 

I parameter expected value array 

TL 

3 

Cal 

I parameter lower tolerance limit array 

TU 

- 

Cal 

I parameter upper tolerance limit array 

ST 

3 

Cal 

stannary time array 

SM 

3 

Cal 

summary mean array 

SE 

3 

Cal 

summary engineering mean array 

A.D-1.91 

3 

Cal 

report file 


A table containing Cal I Parameter Edit Limits, Tolerances, and Nominal 
Values to be defined later. 

1. Check the value of the Cal I step number (NSTEP) against the previous 
Cal I step number (MSTEP). Normally, their difference should be 
either zero or one. 
a. K - ISTAT(25) 

IF (I END ,EQ. 1) GO TO 8 
NSTEP - I ST AT ( 1 ) - 4 

IF (NSTEP.LT. 1 .OR. NSTEP.GT.il) GO TO O-d) 

NTEST « NSTEP - MSTEP 
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IF (NTEST .EQ. 0) GO TO 2 
IF (NTEST .EQ. I) GO TO 8 

b. Cal I step number out of order - print warning message 

c. GO TO 8 

d. Illegal value for Cal I step number - print warning message 

e. GO TO 11 

2. Add previous record of subcam data to summations 

a. Ml Is Indication of data present from subcom #1 
IF (Ml .EQ. 0) GO TO 100 

CALL STAT (2,X(M1),1,XL(M1,K),XU(M1,K),XE(M1,K),S1(M1),S2(M1), 

1 N1 (Ml ) ,N2(M1 ) ,XMIN(M1 ) ,XMAX(M1 ) ,XM(M1 ) ,XV(M1 ) ,XS(M1 ) ) 

b. M2 Is Indication of data present from subcom #2 
100 IF (M2 .EQ. 0) GO TO 3 

CALL STAT (2,X(N2),l,XL(M2.K) t XU(M2,K),XE(M2,K),Sl(N2),S2(M2) t 
1 Nl (M2) .N2(M2).XMIN(M2) t XMAX(M2).XM(M2),XV(M2),XS(M2)) 

3. Save current record of subcom #1 data. N Is a counter based upon the 
channel select status (ISTAT(ll)). ISTAT(ll) ■ 5 Is skipped because 
subcom #1 contains no data for that value. 

N - I ST AT (11) 

IF (ISTAT(ll) .EQ. 5) GO TO 200 
IF (ISTAT(ll) .GT. 5) N - ISTAT(ll) - 1 
Ml ■ N ♦ 71 
X(M!) = WLEV1 (N+18) 

GO TO 4 
200 Ml - 0 

4. Save current record of subcom #2 data. N is a counter based upon the 
channel select status (ISTAT(ll)). ISTAT(ll) - 14 and ISTAT(ll) > 15 
are skipped because subcom #2 contains no data for those values. 

N - ISTAT(ll) 

IF ( I ST AT (11) .EQ. 14) GO TO 300 

IF (ISTAT(ll) .GT. 15) GO TO 300 

IF (ISTAT(ll) .EQ. 15) N - ISTAT(ll) - 1 

M2 « N + 90 

X(M2) - WLEV1 (N+37) 

GO TO 5 
300 M2 - 0 

5. Check for steady state condition (2 seconds elapsed since beginning 
of the Cal I step) 
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TDIFF - (TMJD-TSTART) * 86400.0 
IF (TOIFF .LT. 2.0) GO TO 7 

6. Add previous record of non-subcom data to summations 

CALL STAT(2 f X,71 t XL(l,K),XU(l.K),XE(l.K),Sl,$2,Nl,N2 
1 XMIN.XMAX.XM.XV.XS) 

7. Save current record of non-subcom data 

DO 400 I « 1 ,63 
J - I + 159 
400 X(I) * WLEVl(O) 

X(64) ■ ALT - ALTREF 
X(65) - VfLEVl (7) 

X{66) - WLEVl(lO) 

X(67) * WLEV1(15) 

X(68) - WLEV1 (16) 

X(69) * WLEV1 (17) 

X(70) * WLEV1 (18) 

X(71 ) - WLEV1 (9) 

GO TO 11 

8. Compute final statistics for previous step (non-subcom data) 

a. If MSTEP * 0, no data present for statistical computations 

IF(MSTEP .EQ. 0) GO TO 10 

CALL STAT 13,X,71.XL(1,K).XU(1,K),XE(1,K),S1,S2,N1.N2, 

1 XMIN,XMAX,XM,XV,XS) 

b. Print HSTEP and statistics (i.e., XH(I), XS(I), XMIN(I), and 
XMAX(I) for 1*1 to 71) 

c. Save means for summary and trend 

ST (MSTEP) « TSTART 
00 500 1*1,71 
500 SM(I,MSTEP) = XM(I) 

d. Determine if this is the final entry of Cal I data 

IF ( IEND .EQ. 0) GO TO 10 

9. Compute final statistics for entire Cal I (subcom data) 

a. CALL STAT (3,X(72),33,XL(72,K),XU(72,K),XE(72,K),S1(72),S2(72), 

1 N1 (72),N2(72),XMIN(72),XMAX(72),XM(72),XV(72),XS(72)) 

b. Print statistics (I.e., XM(I), XS(I), XMIN(I), XMAX(I), and 
N1 (I) for 1-72 to 104) 

c. Print summary of mans, flagging parameters which lie outside 
tolerance limits 
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d. Save subcom means for trend 

DO 600 I ■ 1 ,33 
J « I + 71 
600 $E(I,1 )*XM(J) 

e. NSTEP - 0 
HI - 0 
H2 - 0 

10. Initialization section for next step (MSTEP ■ 0 for Initial entry of 
entire calibration mode; N Is the number of variables to be zeroed - 
104 for Initial entry of entire cal mode or 71 for Initialization of 
each subsequent step) 

N - 71 

IF (MSTEP .GT. 0) GO TO 700 
N » 104 

DO 625 I ■ 1,12 
ST(I) = 0.0D+00 
DO 625 J * 1,71 
625 SM(J,I) = 0.0 
DO 650 I = 1,38 
DO 650 J * 1,2 
650 SE(I,J) = 0.0 
700 MSTEP = NSTEP 
T START * TMJD 

CALL STAT (1,X,N,XL(1,K),XU(1,K),XE(1,K),S1,S2,N1,N2, 

1 XMIN.XMAX.XM.XV.XS) 

11. End of algorithm 

RETURN 

COMMENTS: 1. The following TYPE statements must be Inducted In the code of this 

submodule: 

DOUBLE PRECISION TMJD,TSTART,ALT,ALTREF,ST 
DIMENSION X(104),S1(104),S2(104),N1(104),N2(104) 

DIMENSION XMIN(104),XMAX(104),XM(104),XV(104),XS(104) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /T1 31 / XL(104,2),XU(104,2),XE(104,2).TL(104,2),TU(104,2) 
COMMON /CALSUM/ ST(12),SM(7l,12),SE(33,2) 

COMMON /ALTCAL/ ALTREF 

EQUIVALENCE (TMJD.WLEV1 (117)) , (ALT.MLEV1 (5)) 
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TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 


INPUTS: 


DATA MSTEP/O/ , XM,XV,XS/312*0.0/ , Nl,N2/208*0/ 

DATA HI ,M2/2*0/ 

2. The previous record Is used to accumulate the summations due to the 
possible occurrence of bad data In the last record of each step. 

3. "Steady state" Is presumed to be attained after the first two seconds 
of each step. 


CAL MODE STATISTICAL ACCUMULATION SUBMODULE A.A-1.3.1.1 

SUBROUTINE STAT 

To calculate the mean, variance, standard deviation, minimum, and maximum 
of several data sets simultaneously, with the editing of spurious data. 

Not applicable 

A.A-1.3.1.1 Cal I Processing Submodule 
A.A-1.3.1.1 Cal II Processing Submodule 
None 

CALL STAT (J,X,M,XL,XU,XE,S1 ,S2,N1 ,N2,XMIN,XMAX,XM,XV,XS) 

The module is accessed in one of the three modes, depending upon the 
value of J: 

J * 1 This mode Is used to Initialize constants. No data are 
supplied in this mode. 

J = 2 This mode Is used when data are supplied. The summations 
required for the calculation are accumulated. 

J * 3 This mode Is used to calculate the final statistics. Only 
the summations are supplied In this mode. 

For example, when the Cal I submodule is processing cal mode data, it 
accesses SUBROUTINE STAT once with J ■ 1 at the beginning of each Cal I 
step. After the data has reached a steady state condition, SUBROUTINE 
STAT is accessed with J ■ 2 once for each input data record (approximately 
40 times). At the end of each Cal I step, SUBROUTINE STAT is accessed 
once with J * 3 to calculate the final statistics. 

The input variable M defines the number of separate data sets whose sta- 
tistics are to be determined simultaneously. Each time that the module 
Is accessed with J * 2, only one point for each of the M separate data 
sets Is supplied. 

J * 1 for Initialization (no data are supplied) 

* 2 for supplying data and accunulatlng statistics 

* 3 for final wrap up (no data are supplied) 
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OUTPUTS: 


TABLES: 

ALGORITHM: 


X ■ the vector of data (each element contains a data point for one 
of the M separate data sets) 

M • the number of separate data sets for which statistics are to be 
calculated simultaneously and the dimension of X, XL, XU, XE, SI, 
S2, N1 , N2, XMIN, XMAX, XM, XV, and XS 
XL - the vector containing the lower edit limits 

XU * the vector containing the upper edit limits 

XE * the vector containing the expected mean values 

51 * the vector containing the sumnatlon of the unedited points 

52 * the vector containing the summation of the squares of the unedited 

points 

N1 ■ the vector containing the number of unedited points 

N2 « the vector containing the number of edited points 

XMIN « the vector containing the minimum unedited points 

XMAX - the vector containing the maximum unedited points 

XM » the vector containing the calculated mean values 

XV ■ the vector containing the calculated variances 

XS * the vector containing the calculated standard deviations 

None 

1 . Check Input mode 

a. IF (J .Eq. 1) GO TO 2 
IF (J .EQ. 2) GO TO 3 
IF (J .EQ. 3) GO TO 4 

b. Erroneous value of J - print warning message 

GO TO 4 

2. Initialize parameters 

DO 100 I * l.M 
XM(I) - 0.0 
XV(I) « 0.0 
XS(I) = 0.0 
SI (I) - 0.0 
S2(I) • 0.0 
XMIN ( I ) - +9999.0E+20 
XMAX ( I ) - -9999.0E+20 
N1 (I) - 0 
100 N2(I ) « 0 
GO TO 5 

3. Update the summations 

DO 200 I - 1 ,M 
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1 


IF (X(I) .LT. XL(I) ) GO TO 150 
IF (X(I) .GT. XU(I)) GO TO 150 
CONS - X(I) - XE ( I ) 

N1 (I) - Nl ( I) ♦ 1 

SI (I) » SI (I ) + CONS 

S2(I) ■ S2(I) + CONS*CONS 

IF (X(I) ,LT. XMIN(I)) XMIN(I) - X(I) 

IF (X(I) .GT. XHAX(I)) XMAX(I) - X(I) 

GO TO 200 

150 N2(I) * N2(I) + 1 
200 CONTINUE 
GO TO 5 

4. Calculate the final statistics 

DO 300 I * 1 ,M 
IF (Nl (I) .GE. 2) GO TO 250 
XM(I) = -9999.0 
XV(I) = -9999.0 
XS(I) = -9999.0 
GO TO 300 
250 CONS = Nl (I) 

XM(I) « SI (I)/CONS + XE ( I ) 

XV(I) = (C0NS*S2(I)-S1(I)*S1 (I)) / ( CONS* ( CONS- 1 .0)) 

XS(I) = SQRT ( XV ( I ) ) 

300 CONTINUE 

5. End of algorithm 

RETURN 

COMMENTS: 1. The following TYPE statements must be Included in the code of this 

module: 

DIMENSION X(M) ,XL(M) ,XU(M) ,XE(M) ,S1 (M),S2(M) ,N1 (M) ,N2(M) 
DIMENSION XMIN(M),XMAX(M),XM(M),XV(M),XS(M) 

2. The values of the SI, S , Nl, N2, XMIN, and XMAX vectors must not be 
altered by the controlling module until after SUBROUTINE STAT has been 
accessed with J * 3 since these vectors contain variables that are 
required for the final calculation of the statistical parameters. 

3. The units of all of the Input and output variables are consistent with 
the units of X. It should be noted however that Imbedded In the cal- 
culations of the statistics Is the sun of the squares of the unedited 
points. If the individual data points are large (in absolute value), 
then this sunmatlon could cause loss of accuracy due to truncation 
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error. To alleviate this potential problem, the expected mean value 
(XE) Is subtracted from each data point prior to the calculation of 
the summations. Then, before the final calculation of the statistics, 
the summations are modified to remove the effects of subtracting out 
XE. This entire process Is Invisible to the controlling module. In 
fact, some elements of XE may be set equal to zero If truncation 
error Is not a problem for that particular data set. 

4. The XL, XU, and XE arrays are column vectors of doubly subscripted 
arrays which are dimensioned In the accessing module. 


CAL II PROCESSING MODULE 


A.A-1.3.2 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


SUBROUTINE CAL2 

To process all of the Cal II calibration mode data. Cal II data are de- 
signed to determine the aging characteristics of the system reference to 
noise. These data will occur during the last 16 seconds of the calibra- 
tion mode. 

None 


A.A-1.3 
A. A- 1.3.1. 
CALL CAL2 
I END 

ISTAT(ll) 

ISTAT(25) 

ALT 

TMJD 

WLEV1 

YL 

YU 

YE 

ZL 

ZU 

ST 

SM 

SE 

A.D-1.91 


CALMOD cal mode monitor module 
1 STAT cal mode statistical accumulation submodule 
(IENO) 

■ 0 for all but last Cal II entry 

« 1 for last Cal II entry (wrap up) 

■ channel select (1 to 20) 

* altimeter designator (1 or 2) 

■ altitude In (m, 0.001) 

» modified Julian date In (d, 1.0x10"®) 

« level 1 output products 

* Cal II parameter lower edit limit array 

■ Cal II parameter upper edit limit array 
Cal II parameter expected value array 
Cal II parameter lower tolerance limit array 
Cal II parameter upper tolerance limit array 
Cal summary time array 
Cal summary mean array 
Cal summary engineering mean array 
Cal report file 
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TABLES: 


ALGORITHM: 


A tabic containing Cal II Parameter Edit Limits. Tolerances, and Nominal 
Values to be defined later. 

1. Check for first Cal II record; If first record (NS*0) then Initialize 
summations 

IF (IEND .EQ. 1) GO TO 8 
IF (NS .EQ. 1) GO TO 2 
K - I STAT( 25 ) 

CALL STAT(1 ,Y,104,YL(1 ,K),YU{1 ,K), YE(1 ,K) ,S1 .S2.N1 ,N2, 

1 YMIN.YMAX.YM.YV.YS) 

T START - TMJD 
NS » 1 


2. Add previous record of subcom data to simulations 

a. Ml ■ 0 Is Indication of data present In subcom #1 
IF (Ml .EQ. 0) GO TO 100 

CALL STAT (2,Y(M1),1,YL(M1 ,K) ,YU(M1 ,K),YE(M1 ,K),S1(M1),S2(M1), 

1 Nl (Ml ) ,N2(M1 ) , YMIN (Ml ) ,YMAX(M1 ) ,YM(M1 ) ,YV(M1 ) , YS(M1 ) ) 

b. M2 ■ 0 Is Indication of data present In subcom #2 
100 IF (M2 .EQ. 0) GO TO 3 

CALL STAT (2,Y(M2),1,YL(M2,K),YU(M2,K),YE(H2.K),S1(M2),S2(M2), 

1 N1(N2),N2(M2),YMIN(M2),YMAX(M2),YM(M2),YV(M2),YS(M2)) 

3. Save the current record of subcom #1 data. N Is a counter based upon 
the channel select status (ISTAT(ll)). ISTAT(ll) - 5 Is skipped be- 
cause subcom #1 contains no data for that value. 

N - ISTAT(ll) 

IF (ISTAT(ll) .EQ. 5) GO TO 200 
IF (ISTAT(ll) .GT. 5) N - ISTAT(ll) - 1 
Ml - N + 71 
Y(M1) * WLEV1 (N+18) 

GO TO 4 
200 Ml - 0 

4. Save current record of subcom #2 data. N is a counter based upon the 
channel select status (ISTAT(ll)). ISTAT(ll) « 14 and ISTAT(ll) > 15 
are skipped because subcom #2 contains no data for those values. 

N - ISTAT(ll) 

IF (ISTAT(ll) .EQ. 14) GO TO 300 
IF ( I STAT (11) .GT. 15) GO TO 300 
IF (ISTAT(ll) .EQ. 15) N - ISTAT(ll) - 1 
M2 - N + 90 
Y (M2 ) » WLEV1 (N+37) 


74 


GO TO 5 
300 M2 • 0 

5. Check for steady state condition 

TOIFF - (TMJD-TSTART) * 86400.0 
IF (TOIFF .LT. 6.0) GO TO 7 

6. Add previous record of non-subcom data to summations 

CALL STAT (2,Y,71,YL(1,K),YU(l,K),YE(l,k),S1,S2,Nl,N2, 
1 YMIN.YMAX.YM.YV.YS) 

7. Save current record of non-subcom data 

DO 400 I • 1,63 


J - I + 

159 

400 Y(I) ■ 

WLEVI(J) 

Y(64) ■ 

ALT - ALTREF 

Y (65 ) - 

WLEV1(7) 

Y(66) ■ 

WLEV1 (10) 

Y (67 ) - 

WLEV1 (15) 

Y (68) ■ 

WLEV1 (16) 

Y(69) - 

WLEV1 (17) 

Y(70) « 

WLEV1 (18) 

Y( 71 ) - 

WLEV1 (9) 

GO TO 9 


Compute final 

statistics for 


a. CALL STAT (3,Y,104,YLO,K),YU(l,K) i YE(1,K),S1,S2,N1,N2, 

1 YMIN.YMAX.YM.YV.YS) 

b. Print statistics (l.e., YH(I), YS(I), YMIN(I), and YMAX(I) for 
I - 1 to 104) 

c. Save means for stannary 
ST (12) ■ T START 

DO 500 I » 1,71 
500 SM( 1,12) - YM(I) 

DO 600 I - 1,33 
J - 1+71 

600 SE(I,2) ■ Y(J) 

d. Print summa of means, flagging parameters which lie outside 
tolerance limits 

e. Ml ■ 0 
M2 - 0 
NS « 0 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT; 

ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


9. End of algorithm 
RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule: 

DOUBLE PRECISION TMOD,TSTART,ALT,ALTR£F,$T 
DIMENSION Y(104),S1(104),S2(104),N1(104),N2(104) 

DIMENSION YMIN(104),YMAX(104),YM(104),YV(104),Y$(104) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ MLEV1(300) 

COMMON /T1 32/ YL{104,2) t YU(104 f 2)YE(104.2).ZL(104.2) # ZUtl04.2) 
COMMON /CALSUM/ ST(12),$M(71 ,12),SE(33,2) 

COMMON /ALTCAL/ ALTREF 

EQUIVALENCE (TMJ0,M.EV1(117)) , (ALT.WLEV1 (5)) 

DATA Ml, M2, NS/ 3*0/ , YM.YV.YS/31 2*0.0/ , Nl,N2/208*0/ 


TREND FILE PROCESSING A.A-1.3.3 


SUBROUTINE TREND 

To Identify long-range trends In the calibration mode data. A file of 
trends will be automatically maintained, and significant changes In 
altimeter parameters will be calculated and flagged. A human decision of 
the appropriate action to be taken to correct the flagged parameters will 
be required. The Inputs to the module will be the Cal Report data and the 
trend file, and the outputs will be the updated trend file ami a display 
of flagged parameters. 

Not applicable 

A. A- 1.3 CAL MOO cal mode module 
None 

CALL TREND 

Cal Report data (A.D-1.91) and trend file tA.D-1.71). 

Updated trend file (A. D-l - 71 ) and trend report (A.D-1.92). 

A table of tolerances (not presently available). The maximum number of 
entries will be 100 for each of two altimeters. 

The Input Cal Report statistics will be compared with previous calibration 
mode summaries. A curve-fit technique will be employed to determine If 
any long-range trends are present. If significant long-range trends are 
found, the parameters Involved will be flagged and displayed for human 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 

OUTPUTS: 


Interpretation and reaction. This module Is run once per calibration mode 
command, which Is normally once per day. 

1. The altimeter has internal calibration modes to detect changes In 
altitude, AGC, and other parameters attributable to aging, tempera* 
turn, voltage fluctuation, etc. This mode will be employed for 60 
seconds about once per day. The cal mode monitor will process the 
calibration mode data and generate calibration reports of comparisons 
with prefllght nominal calibrations. These reports will require 
Mission Contractor Interpretation when flagged changes are significant 
enough to justify updates to the cal mode bias submodule tables. 

The trend file processor Is designed to Identify long-range (one month 
to one year) trends In the calibration mode data. To this end, a file 
of trends will be automatically maintained by the altimeter processing 
software, and significant changes In altimeter parameters will be cal- 
culated and flagged. A human decision of the appropriate action to be 
taken to correct the flagged parameters will be required. It may take 
two to three weeks to verify that the characteristic Is valid and. If 
valid, to Implement a correction. Any faster changes will be detected 
by health status monitoring. 

2. This Is only a functional description. The algorithms will be defined 
at a later date. 


ADAPTIVE RESOLUTION A.A-1.4 


SUBROUTINE ADPRES 

To process all adaptive resolution mode data. Adaptive resolution Is a 
mode In which the altimeter has detected surface slope changes and auto- 
matically switched to a wider pulse width and different track constants to 
maintain lock. The Input to the module will be the altimeter engineering 
units data and the output will be modified altitudes, AGC, and time tags. 
Not applicable 

A.A-1.0 ALT1DR level 1 driver module 
None 

CALL ADPRES 

Altimeter engineering unit data from module A.A-1.1 
WLEV1 (133) - modified altitude In (m,0.001) 

MLEV1 (135) - modified AGC In (dB,0.01) 

WLEV1 (117) - modified altitude time tag In (s, 0.0001) 
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TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


COIRCNTS: 


WLEV1 (146) ■ total height correction In 0**0.001) 

WLEV1 (148) • AGC correction (dB.0.01) 

WLEV1(119) ■ tine-tag correction In (a ,0.0001) 

Tables for each resolution step slnllar to those In A.A-1.2. Maxinun 
entries are 30 for each of two altimeters. 

Correct altitude, AGC, and tine tags for offsets due to the selected pulse 
width and tracker characteristics. Generally these will be In the form of 
table lookups Indexed by pulse width (five possible steps). This nodule 
will also process data from the CM node. 

Adaptive resolution will occur primarily over 1 m sheets ami land. The 
corrections made by this nodule will make level 1 output products con- 
sistent with the normal track node processed by A.A-1.2. 

1. This Is wily a functional description. 


LOCATION CLASSIFICATION MOOULE A.A-1.5 

SUBROUTINE LOCATE 

To act as the driver nodule for the ephemerls Interpolation software. 

This routine Interpolates the spacecraft latitude, longitude, height above 
the reference ellipsoid, and attitude to the altimeter data tine tag. The 
data is also catalogued for surface type classification. 

Not applicable 

A.A-1.0 ALT 1 OR level 1 driver nodule 

A.A-1.5.1 PLHINT spacecraft ephemerls Interpolation submodule 

A.A-1.5. 2 CLSIFY subsatellite point classification submodule 

CALL LOCATE 

None 

None 

None 

1. Interpolate the spacecraft ephemerls and attitude 

CALL PLHINT 

2. Determine If subsatellite point Is water, land, or Ice 

CALL CLSIFY 

3. End of algorithm 

RETURN 

None 
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SPACECRAFT EPHEMERIS INTERPOLATION SUBMODULE 


A.A-1.5.1 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

INPUTS: 

OUTPUTS: 


TABLES: 

ALGORITHM: 

COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 


SUBROUTINE PLHINT 

To determine the spacecraft latitude, longitude, height above the reference 
ellipsoid, and attitude by interpolating the ephemerls file, A.D(M)-1.82, 
to the proper time. 

None 


A.A-1.5 LOCATE location classification module 
None 


A.D(M)-1.82 

TMJD 

WLEVl (136) 
ULEV1 (1 51 ) 
ULEV1 (152) 
HGT 

ISTAT(43) 

None 


ephemerls file 

modified Julian date in (d, 1.0x10"^) 

spacecraft attitude 

geodetic latitude in (deg, 0.000001) 

longitude in (deg, 0.000001) 

height above the reference ellipsoid in (m, 0.001) 

subtrack direction flag 


TBD 

1. The following TYPE statements must be included in the code of this 
submodule: 

DOUBLE PRECISION TMJD, HGT 
COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

EQUIVALENCE (TMJD, WLEVl (117)) , (HGT.WLEV1 (137)) 

2. The spacecraft attitude is computed from onboard sensors and should not 
be confused with the attitude calculated in the Waveform Module, which 
is computed from analysis of waveform data. 

3. The specific design of this algorithm for now is being left to the 
mission contractor. 


SUBSATELLITE POINT CLASSIFICATION SUBMODULE A.A-1.5. 2 

SUBROUTINE CLSIFY 

To classify the subsatellite point as water, land, or ice based upon the 

world surface map 

None 

A.A-1.5 LOCATE location classification module 
None 


79 


ACCESS: 

INPUTS: 


CALL CLSIFY 

A.D(M)-1 .83 a world surface nap file 
THJD ■ modified Julian date in (d.l.OxlO" 9 ) 

WLEV1 (151) ■ geodetic latitude in (deg.O. 000001 ) 

WLEV1 (152) » longitude In (deg, 0.000001) 

OUTPUTS: ISTAT(44) * zone flag (1 for water, 2 for land or Ice) 

TABLES: None 

ALGORITHM: TBD 

COMMENTS: 1. The following TYPE statements must be included in the code of this 

submodule: 

DOUBLE PRECISION TMJD 
COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

EQUIVALENCE (TNJD,WLEV1(117)) 

2. The specific design of this algorithm for mm* is being left to the 
mission contractor. 


HEALTH/STATUS MONITOR DRIVER MODULE A.A-1.6 

TITLE: SUBROUTINE HSMNTR 

FUNCTION: To monitor critical instrument parameters and turn on system alarms when 

a potentially damaging or dangerous condition exists. 

REFERENCE: Not applicable 

CONTROL: A.A-1.0 ALT1DR level 1 driver module 

SUPPORT: A.A-1.6.1 HSDAYW health/status monitor 1-day wrap up submodule 

A.A-1.6.2 HSMINH health/status monitor n-minute wrap up submodule 

A.A-1.6. 3 HSSTAT health/status monitor status processing submodule 

A.A-1.6. 4 HSNONS health/status monitor non-subcom processing submodule 

A.A-1.6. 5 HSSUB1 health/status monitor subcom #1 processing submodule 

A.A-1.6. 6 HSSUB2 health/status monitor subcom #2 processing submodule 

A.A-1.6.7 HSSUB3 health/status monitor subcom #3 processing submodule 

ACCESS: CALL HSMNT. 

INPUTS: None 

OUTPUTS: None 

. TABLES: None 

r 

S ALGORITHM: 1. Finalize statistics for 1-day averaging period if required 

f CALL HSDAYW 

i= 

II . 5 

T' * 

U ; 

1 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


TABLES: 


2. Finalize statistics for n-mlnute averaging period if required 

CALL HSMINW 

3. Process status words 

CALL HSSTAT 

4. Process non-subcom data 

CALL HSNONS 

5. Process subcom #1 

CALL HSSU81 

6. Process subcom #2 

CALL HSSUB2 

7. Process subcom #3 

CALL HrSUB3 

8. End of algorithm 

RETURN 

1. The variables contained in COMMON /HSCOM/ , which is used in the sub- 
modules supporting this module, are described in Tables IX(a) and IX(b). 


HEALTH/STATUS MONITOR 1-DAY WRAP UP SUBMODULE A. A- 1.6.1 

SUBROUTINE HSDAYW 

To check to see if the end of a 1-day averaging period has been reached. 
If it has, final statistics for the period are calculated and printed on 
the Altimeter Diagnostics File (A.D-1.93) 

Not applicable 

A.A-1.6 HSMNTR health/status monitor driver module 

A.A-1.6.1.1 STATZ health/status monitor statistical submodule 

CALL HSDAYW 

n 

TMJD = modified Julian date in (d, 1.0x10 ) 

N1D = number of unedited points (1-day averaging) 

N2D = number of edited points (1-day averaging) 

ZMIND = minimum unedited points (1-day averaging) 

ZMAXD - maximum unedited points (1-day averaging) 

ZMD = means (1-day averaging) 

ZSD = standard deviations (1-day averaging) 

A.D-1.93 = Altimeter Diagnostics Files 

NEWDAY = 0 for same day 

= 1 for new day 

None 
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ALGORITHM: 1. Check for a new 1-day averaging period by comparing the current 

modified Julian date (TMJD) with the last modified Julian date 
(TMJDL). For each modified Julian date, 1/2 day must be added 
since the Julian day changes at noon and not at midnight. If the 
modified Julian date does not cross midnight, then NEWAY is set 
equal to zero. If the modified Julian date does cross midnight, 
then NEWDAY Is set equal to one, unless the last modified Julian 
date was -9999, which Indicates that the current record Is the 
first record to be processed. 

NEWOAY = 0 

MJDL = TMJDL + 0. 50+00 
MJD = TMJD + 0. 50+00 
IF (MJDL .EQ. MJD) GO TO 5 
IF (MJDL .LT. 0) GO TO 4 
NEWOAY = 1 

2. New 1-day averaging period - compute final statistics for the pre- 
vious 1-day averaging period for each altimeter (J = 1 and 2). 

CALL STATZ (3,1,75,1,1) 

CALL STATZ (3,1,75,1,2) 

3. Print final statistics for the previous 1-day averaging period. 

Included in this print will be the number of unedited points (N1D), 
the number of edited points (N2D), the minimum unedited points (ZMIND), 
the maximum unedited points (ZMAXD), the means (ZMD), and the standard 
deviations (ZSD) for each of the 43 parameters and for each altimeter. 
(See explanation of parameters in COMMON /HSCOM/ located in module 
A.A-1.6. ) 

4. Initialize statistics for next 1-day averaging period for each 
altimeter (J = 1 and 2) 

CALL STATZ (1,1,75,1,1) 

CALL STATZ (1,1,75,1,2) 

5. End of algorithm 

TMJDL = TMJD 
RETURN 

C(#f€NTS: 1. The following TYPE statements must be included in the code of this 

submodule: 

DOUBLE PRECISION TMJD, TMJDL 

COMMON /HSCOM/ Z(75),ZL(75),ZU(75),ZE(75), 

1 S1D(75,2),S2D(75,2),N1D(75,2),N2D(75,2), 

2 ZMIND(75,2),ZMAXD(75,2),ZMD(75,2),ZVD(75,2),ZSD(75,2), 
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3 S1M(75,2),S2M(75,2).N1M(75,2),N2M(75,2), 

4 ZMINM(75,2),ZMAXM(75,2),ZMM(.75,2),ZVM(75,2) ,ZSM(75,2), 

5 NEW0AY,ZAL(75,2) ,ZAU(75,2),NCNT(25) 

COMMON /SENSOR/ WLEV1(300) 

EQUIVALENCE (TMJD.WLEV1 (117)) 

DATA TMJDL/-9999.0D+00/ 


HEALTH/STATUS MONITOR STATISTICAL SUBMODULE A.A-1.6.1.1 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 


SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


SUBROUTINE STATZ 


To calculate the mean, variance, standard deviation, minimum, and maximum 


of several data sets simultaneously, with the editing of spurious data 


Not applicable 

A.A-1.6.1 

HSDAYW 

A.A-1.6.2 

HSMINW 

A.A-1.6.3 

HSSTAT 

A.A-1.6.4 

HSNONS 

A.A-1.6.5 

HSSUB1 

A.A-1.6.6 

HSSUB2 

None 



health/status monitor 1-day wrap up submodule 
health/status monitor n-minute wrap up submodule 
health/status monitor status processing submodule 
health/status monitor non-subcom processing submodule 
health/status monitor subcom #1 processing submodule 
health/status monitor subcom #2 processing submodule 


CALL STATZ (J,K1 ,K2,L,N) 

J * 1 to initialize constants (no data are supplied) 

= 2 to accumulate summations for later calculation of statistics 
* 3 to calculate final statistics (no data are supplied) 

K1 * starting value of Z array first index 

K2 * ending value of Z array first index 

L = 1 for 1-day averaging 

- 2 for n-minute averaging 
N = altimeter number 

Z - data to be averaged 

ZL = lower edit limits 

ZU * upper edit limits 

ZE - expected values 

SID * summations of unedited points (1-day averaging) 

S2D = summations of unedited points squared (1-day averaging) 

N1D * number of unedited points (1-day averaging) 

N2D * number of edited points (1-day averaging) 

ZMIND * minimum unedited points (1-day averaging) 
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TABLES: 

ALGORITHM: 


ZMAXD - maximum unedited points (1-day averaging) 

ZMD ■ means (1-day averaging) 

ZVD ■ variances (1-day averaging) 

ZSD - standard deviations (1-day averaging) 

SIM * summations of unedited points (n-mlnute averaging) 

S2M * summations of unedited points squared (n-mlnute averaging) 
N1M = number of unedited points (n-mlnute averaging) 

N2M - number of unedited points (n-mlnute averaging) 

ZMINM * minimum unedited points (n-mlnute averaging) 

ZMAXM = maximum unedited points (n-mlnute averaging) 

ZMM = means (n-mlnute averaging) 

ZVM = variances (n-mlnute averaging) 

ZSM * standard deviations (n-minute averaging) 

None 

1. Check input values 

IF (J.LT.l .OR. 0.GT.3) GO TO 5 
IF (K1.LT.1 .OR. K1.GT.75) GO TO 5 
IF (K2.LT.1 .OR. K2.GT.75) GO TO 5 
IF (L.LT.l .OR. L.GT.2) GO TO 5 
IF (N.LT.l .OR. N.GT.2) GO TO 5 
IF (J. EQ. 1) GO TO 2 
IF (J. EQ. 2) GO TO 3 
GO TO 4 

2. Initialize parameters 


DO 100 I = 

K1,K2 

ZMD(I,N) 

= 0.0 

ZV0(I,N) 

= 0.0 

ZSD(I.N) 

* 0.0 

S1D(I,N) 

= 0.0 

S2D(I,N) 

= 0.0 

ZMIND(I.N) 

= +9999.0E+20 

ZMAXD ( I , N ) 

= -9999.0E+20 

N1D(I ,N) 

= 0 

N2D(I,N) 

* 0 

ZMM(I,N) 

= 0.0 

ZVM(I.N) 

= 0.0 

ZSM(I,N) 

* 0.0 

SIM(I.N) 

= 0.0 

S2M(I,N) 

* 0.0 
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ZMINM(I.N) « +9999.0E+20 
ZMAXM(I.N) - -9999.0E+2Q 
N1M(I,N) * 0 
100 N2M(I,N) - 0 
60 TO 6 

3. Update the summations 

a. DO 200 I * K1,K2 

IF (Z(I) .LT. ZL(I)) GO TO 3-d 
IF (Z(I) .6T. ZU ( I ) ) GO TO 3-d 
CONS = Z(I) - ZE(I) 

IF (L .EQ. 2) GO TO 3-c 

b. 1-day averaging 

N1D(I,N) * NID(I.N) + 1 

SlD(I ,N) = S1D(I,N) + CONS 

S2D(I,N) = S2D(I,N) + CONS*CONS 

IF (Z(I) .LT. ZMIND(I.N)) ZMIND(I.N) - Z(I) 

IF (Z(I) .GT. ZMAXD(I.N)) ZMAXD(I.N) = Z(I) 

GO TO 200 

c. n-minute averaging 
NIM(I.N) = N1M(I,M) + 1 
S1M(I,N) = SI M( I ,M) + CONS 
S2M(I,N) = S2H(I,M) + CONS*CONS 

IF (Z(I ) .LT. ZMINM(I.N)) ZHINM(I.N) = Z(I) 

IF (Z(I) .GT. ZMAXM(I.N)) ZMAXM(I.N) * Z(I) 

GO TO 200 

d. Edited point 

IF (L .EQ. 1) N2D(I ,N) = N2D(I,N) + 1 

IF (L. EQ. 2) N2H(I,N) = N2M(I,N) + 1 

e. End of loop 
200 CONTINUE 

GO TO 6 

4. Calculate the final statistics 

a. C- 300 I=K1 ,K2 

IF (L. EQ. 2) GO TO 4-c 

b. 1-day averaging 

IF (N1D(I,N) .GE. 2) GO TO 225 
ZMD(I,N) = -9999.0 

ZVD(I.N) * -9999.0 

ZSD(I.N) « -9999.0 
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COMMENTS : 


t 



GO TO 300 

225 CONS - NIDtI.N) 

ZMD(I,N) * S1D( I,N)/CONS + ZE(I) 

ZVD(I.N) « (C0NS*S2D(I,N) - S1D(I,N)**2) / (C0NS*(C0NS-1.0)) 
ZSD(I,N) » SQRT(ZVD(I,N)) 

GO TO 300 

c. n -minute averaging 
IF(N1M(I,N) .GE. 2} GO TO 250 
Zf*l(I»N) * -9999.0 
ZVM(I.N) « -9999.0 
ZSM(I,N) * -9999.0 

GO TO 300 

250 CONS = NIM(I.N) 

ZMM(I.N) = S1M(I,N)/C0NS + ZE(I) 

ZVM(I.N) = (C0NS*S2M(I ,N)-S1M(I,N)**2) / (CONS*(CONS-'i.O)) 

ZSM(I.N) * SQRT(ZVM(I,N)) 

d. End of loop 
300 CONTINUE 

GO TO 6 

5. Input out of range - print warning message and all input variables 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be included in the code of this 
submodule: 

COMMON /HSCOM/ Z(75) . ZL ( 75) . ZU ( 75 ) . ZE ( 75 ) , 

1 S1D(75,2),S2D(75,2),N1D(75,2) ,N2D(75,2), 

2 ZMIND(75,2) ,ZMAXD( 75,2), ZMD( 75,2) ,ZVD( 75,2) ,ZSD( 75,2) , 

3 S1M(75,2),S2M(75,2),N1M(75,2),N2M(75,2), 

4 ZMINM(75,2) ,ZMAXM(75,2) ,ZMM( 75,2 ),ZVM(75,2) ,ZSM( 75,2), 

5 NEWDAY,ZAL(75,2),ZAU(75,2),NCNT(25) 

2. The units of all of the input and output variables ere consistent with 
the units of Z. It should be noted however that imbedded in the cal- 
culations of the statistics is the sum of the squares of the unedited 
points. If the Individual data points are large (in absolute value), 
then this summation could cause loss of accuracy due to truncation 
error. To alleviate this potential problem, the expected mean value 
(ZE) is subtracted from each data point prior to the calculation of 
the summations. Then, before the final calculation of the statistics, 
the summations are modified to remove the effects of subtracting out 


ZE. This entire process Is invisible to the controlling module. In 
fact, some elements of ZE may be set equal to zero if truncation error 
is not a problem for that particular data set. 


HEALTH/STATUS MONITOR N-MINUTE WRAP UP SUBMODULE A.A-1.6.2 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE HSMINW 


To check to see if the end of an n-minute averaging period has been 
reached, where the number of minutes in the averaging period is a program 
input (nominally 25). If it has, final statistics for the period are 
calculated and printed on the Altimeter Diagnostics File (A.D-1.93). 

Not applicable 

A.A-1.6 HSMNTR health/status monitor driver module 

A.A-1.6.1.1 STATZ health/status monitor statistics submodule 


CALL HSMINW 
TMJD 

I EXEC (4 ) = 

N1M 

N2M 

ZMINM 

ZNAXM 

ZMM 

ZSM 

A.D-1.93 * 


modified Julian date in (d, 1.0x10“^) 

Interval for n-minute averaging period 
number of unedited points (n-minute averaging) 
number of edited points (n-minute averaging) 
minimum unedited points (n-minute averaging) 
maximum unedited points (n-minute averaging) 
means (n-minute averaging) 
standard deviations (n-minute averaging) 
Altimeter Diagnostics File 


None 


1. Check for a new n-minute averaging period by comparing the current 
Julian date (TMJD) converted to minutes past midnight (MIN) with the 
last modeled Julian date (TMJDL) converted to minutes past midnight 
(MINL). If the difference is greater than the averaging period 
( IEXEC(4) ) . then a new n-minute averaging period has begun (unless 
the last modified Julian date was -9999, which indicates that the 
current record is the first record to be processed). 

MINL - DMOD(TMJDL+0.5D+00,1.0D+00) * 1440.0D+00 
MIN * DMOD(TMJD+0.5D+00,1 .00+00) * 1440.0D+00 
MO IFF - MIN - MINL 

IF (MDIFF .LT. 0) MDIFF * MDIFF + 1440 
IF (MOIFF .LT. 1EXEC(4) ) GO TO 5 
IF (TMJDL .LT. O.OD+OO) GO TO 5 
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COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 


2. New n-mlnute averaging period - compute final statistics for the pre- 
vious n-mlnute averaging period for each altimeter (J * 1 and 2). 

CALL STATZ (3,1,75,2,1) 

CALL STATZ (3,1,75,2,2) 

3. Print the final statistics for the previous n-mlnute averaging period. 
Included In this print will be the number of unedited points (N1M), 
the number of edited points (N2M), the minimum unedited points (3IINM), 
the maximum unedited points (ZMAXM), the means (ZMM), and the standard 
deviations (ZSM) for each of the 43 parameters and for each altimeter. 
(See explanation of parameters In COWON /HSCOM/ located In module 
A.A-1.6.) 

4. Initialize statistics for next n-mlnute averaging period for each 
altimeter (0 * 1 and 2). 

CALL STATZ (1,1,75,2,1) 

CALL STATZ (1,1,75,2,2) 

5. End of algorithm 

TMJDL * TRIO 
RETURN 


1. The following TYPE statements must be Included In the code of this 
submodule: 

DOUBLE PRECISION TMJD, TMJDL 

COWON /HSCOM/ Z(75),ZL(75),ZU(75),ZE(75), 

1 S1D(75,2),S2D(75,2),N1D(75,2),N2D(75,2), 

2 ZMIND(75,2) ,ZMAXD(75,2),ZMD(75,2),ZVD(75,2),ZSD(75,2) , 

3 S1M(75,2),S2M(75,2),N1M(75,2),N2M(75,2), 

4 ZMINM(75,2),ZMAXM(75,2).ZMM(75,2),ZVM(75,2),ZSM(75,2), 

5 NEW0AY,ZAL(75,2),ZAU(75,2),NCNT(25) 

COWON /EXECUT/ IEXEC(IOO) 

COMMON /SENSOR/ WLEV1 (300) 

EQUIVALENCE (TMJD,WLEV1(117)) 

DATA TMJDL/-9999.0D+00/ 


HEALTH/STATUS MONITOR STATUS PROCESSING SUBMODULE A.A-1.6. 3 
SUBROUTINE HSSTAT 

To monitor critical status bits for changes and potentially damaging or 
dangerous conditions 
Not applicable 
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CONTROL: A.A-1.6 HSMNTR health/status monitor driver module 

SUPPORT: A.A-1.6. 1.1 STATZ health/status monitor statistical submodule 

ACCESS: CALL HSSTAT 

INPUTS: TMJD - modified Julian date In (d.I.OxlO’ 9 ) 

I ST AT ( 2 ) « HV on 

ISTAT(3) • HV ready 

ISTATC4) - TWT fault 

I ST AT ( 7 ) ■ rain processing enable 

ISTATC9) » mode command 

ISTAT(14) « ACQ/TRK 

I ST AT (18) - chlrp/CW 

ISTAT(20) - TWTA fault reset 

ISTAT (21 ) - trigger kill 

ISTAT( 24) • TWT heater ON/OFF 

ISTAT(25) ■ altimeter designator 

ISTAT (26) ■ program version 

ISTAT (27) ■ tracker type 

I$TAT(28) ■ resolution step 

WLEV1 (139) « status #1 

OUTPUTS: A. 0-1. 93 * Altimeter Diagnostics File 

A.D-CRT = Master Control CRT Fllr 

NCNT(l) » HV on counter 

NCNT(2) * HV off counter 

NCNT ( 3 ) * altimeter on counter 

NCNT(4) « standby counter 

NCNT (5) « calibrate counter 

NCNT(6) ■ trigger kill counter 

NCNT(7) « track 1 counter 

NCNT(8) * track 2 counter 

NCNT(9) * track 3 counter 

NCNT(IO) ■ track 4 counter 

NCNT (11) » TWT fault reset counter 

NCNT(12) ■ test mode 1 (CW) counter 

NCNT(13) » test mode 2 counter 

NCNT(14) ■ test mode counter 

NCNT (15) > test mode counter 

NCNT(16) * adapt, resolution counter 

NCNT(1 7) ■ TBD counter 

NCNT (18) - TBD counter 
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TABLES: 

ALGORITHMS: 


NCNT (19) 

m 

TBD counter 

NCNT(20) 

m 

rain processing counter 

NCNT(21) 

m 

ACQ/TRK counter 

NCNT (22) 

m 

chirp mode counter 

NCNT (.23) 

* 

CW mode counter 

NCNT (24) 

m 

trigger kill counter 

NCNT(25) 

m 

1WTA fault reset counter 

None 

1 . Process 

the Cal Atten/SACU Status 


a. Check HV ON for changes 

IF ( ISTAT(2) .EQ. 1) NCNT(l) « NCNT(l) + 1 
IF (ISTAT(2) .EQ. 0) NCNT(2) • NCNT{2) + 1 
IF (NFIRST .EQ. 1 ) GO TO 1-b 

IF (ISTATC2) .NE. JSTAT(l)) Print HV ON status change notice 

b. Check HV ready for changes 

IF (ISTAT(3) .EQ. 1) GO TO 1-c 
IF ( JSTAT ( 2 ) .EQ. 0) GO TO 100 
TMJDX * TMJD 
NCNT ( 3 ) » NCNT(3) + 1 

100 IF ((TMJD-TMJDX)*1440.0D+00 .GT. 3.0) Print and display 
HV ready alarm 

c. Check TWT fault 

IF ( I ST AT ( 4 ) .EQ. 1) Print and display TWT fault alarm 

2. Process status #1 - accumulate time for each mode and look for changes 

N - I ST AT ( 9 ) 

NCNT(N+4) » NCNT(N+4) + 1 

IF ( ISTAT ( 7 ) .EQ. 1) NCNT{20) ■ NCNT(20) + 1 

NSTAT1 - WLEV1 ( 3 39) 

IF (NFIRST .EQ. 1 ) GO TO 3 

IF (NSTAT1 .NE. JSTAT (3) ) print change of status #1 notice 

3. Process status #3 - count changes In the ACQ/TRK status 

IF < ISTAT (14) .NE. JSTAT(4)) NCNT(21) - NCNT(21) ♦ 1 

4. Process status #4 - accumulate times and check for alarms 

IF (ISTAT(9) .LT. 3 .OR. ISTAT(9) .GT. 6) GO TO 100 
IF (ISTAT(18) .EQ. 0) NCNT(22) » NCNT(22) + 1 

IF ( ISTAT (18) .EQ. 1) NCNT(23) - NCNT(23) + 1 

IF ( ISTAT (21 ) .EQ. 1) NCNT(24) • NC*T(24) + 1 

100 IF ( J SI AT ( 20 ) .EQ. 1) NCNT(25) » NCNT(25) + 1 
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COMMENTS: 


5. 


6 . 


7. 

1 . 


2. 


IF ( ISTAT ( 20) .EQ. 1) print and display TWTA fault reset alarm 
IF (ISTAT (24) .EQ. 0) print and display TWT heater ON/OFF alarm 
Process status #5 - report changes 

IF (ISTAT (25) .NE. 0STAT(5) ) print change of altlmatar notice 
IF (ISTAT (26) .NE. JSTAT(6)) print change of program version 
notice 


IF (ISTAT(14) .NE. 1) 00 TO 6 

IF (!STAT(27) .NE. JSTAT(7)) print change of tracker type notice 
IF ( ISTAT (28) .NE. JSTAT(8)) print change of resolution step 
notice 


Reset all test words so that the next data record can be compared 
with this data record 
NFIRST ■ 0 
JSTAT(l) • ISTAT(2) 

J ST AT ( 2 ) - I ST AT ( 3 ) 

JSTAT(3) - NSTAT1 
JSTAT(4) - I ST AT (14) 

JSTAT(5) - ISTAT ( 25) 

JSTAT(6) « ISTAT(26) 

JSTAT(7) - ISTAT(27) 

JSTAT(B) « ISTAT (28) 

End of algorithm 
RETURN 


The following TYPE statements must be Included In this submodule: 

DOUBLE PRECISION TMJD.TMJDX 
DIMENSION J ST AT ( 8 ) 

COMMON /HSCOM/ Z(75),ZL(75),2U(75).ZE(75), 

1 S1D(75,2),S2D(75,2),N1D(75,2),N2D(75,2), 

2 ZMIND{ 75 , 2 ) ,ZMAXD(75,2),ZMD(75,2),ZVD(75,2),ZSD(75,2) , 

3 SlM(75,2),S2Mt75.2),NlMC75 i 2),N2M(75,2). 

4 ZMINM(75,2),ZMAXM(75,2),ZMN(75,2) t ZVM(75,2),ZSM(75,2), 

5 NEWDAY.ZAL(75,2).ZAU(75,2),NCNT(250 
COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

EQUIVALENCE (TMJD.WLEV1 (11 7 ) ) 

DATA NFIRST/ 1/ . 0STAT/8*-9999/ 

"Print" refers to printing on the Altimeter Diagnostics File (A.D-1.93) 
and "display refers to displaying on the Master Control CRT File 
(A.D-CRT). 
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HEALTH/STATUS MONITOR NON-SUBCOM PROCESSING SUBMODULE A.A-1.6.4 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUT: 


SUBROUTINE HSNONS 

To monitor non-subcom critical Instrument parameters. In particular, this 
submodule 


1. accumulates statistics for selected non-subcom parameters over 
1-day and n-mlnute averaging periods, and 

2. sets off system alarms when potentially damaging or dangerous 
conditions are detected In selected non-subcom parameters. 

Not applicable 

A.A-1.6 HSMNTR health/status monitor driver module 

A.A-1.6.1.1 STATZ health/status monitor statistical submodule 


CALL HSNONS 

TMJD 

WLEV1 (4) 

WLEV1 ( 7 ) 

WLEVK8) 

WLEV1(9) 

WLEVl(lO) 

WLEVK15) 

WLEV1 (18) 

NLEV1(136) 

I STAT ( 9 ) 
ISTAT(12) 

I ST AT (14) 
ISTAT (18) 
ISTAT(19) 

I STAT (25) 
ISTAT(44) 

A. 0-1. 93 

A.O-CRT 

ZO) 

Z(2) 

2(3) 

Z(4) 

Z(5) 

Z(6) 

Z(7) 


modified Julian date In (d, 1.0x10"®) 
altitude rate In (m/s, 0.01) 
altitude error In (m,0.01) 

SWH In (m,0.01) 

AGC word In (dB,0.01) 

AGC gate amplitude In (v,0.1) 

noise gate amplitude In (v,0.1) 

transmit power In (kw,0.1) 

attitude (spacecraft) in (deg, 0.01) 

operate 3tatus 

A IT! mode 

ACQ/TRK status 

chirp/CW status 

high voltage ON/OFF status 

altimeter designator (1 or 2) 

zone flag 

Altimeter Diagnostics File 
Master Control CRT 
spacecraft attitude (HV ON only) 
altitude rate (HV ON only) 
altitude error (HV ON only) 

SWH (HV ON only) 

AGC word (HV ON only) 

AGC gate amplitude (HV ON only) 
noise gate amplitude (HV ON only) 


TABLES: 

ALGORITHM: 


Z(8) ■ transmit power (chirp mode; HV ON only) 

2(9) a transmit power (CW mode; HV ON only) 

(tone 

1. Check for steady-state condition (i.e., high voltage must have been on 
for at least 2 seconds). If high voltage Is on, then IWVON Is set 
equal to one. If not, NHVON Is set equal to zero. When high voltage 
Is turned from off to on, the modified Julian date Is saved In THVON. 

a. IF (ISTAT(19) .EQ. 0) GO TO 1-b 
IF (NHVON .EQ. 0) THVON * TMJD 
NHVON = 1 

GO TO 2 

b. NHVON = 0 
GO TO 14 

2. Check for open ocean (ACQ/TRK status equal to 1 and zone flag equal to 
1) and for In track mode (operate status between 3 and 6). 

IF (ISTAT(14) .EQ. 0) GO TO 14 
IF ( ISTAT ( 44 ) .NE. 1) GO TO 14 
IF ( ISTAT(9) .LT. 3) GO TO 14 
IF ( I ST AT ( 9 ) .GT. 6) GO TO 14 

3. Store spacecraft attitude and check for alarm condition 

a. J = ISTAT(25) 

Z(l) = WLEV1 ( 1 36 ) 

IF (Z(l).GT.ZAL(l ,J) .AND. Z(1).LT.ZAU(1,J)) GO TO 4 

b. Print and display the spacecraft attitude alarm 

4. Determine if mode is chirp or CW 

IF ( I ST AT (18) .EQ. 0) GO TO 12 

5. Chirp mode - store altitude rate and check for alarm condition 

a. Z(2) = WLEV1 (4) 

IF (Z(2).GT.ZAL(2,J) .AND. Z(2).LT.ZAU(2,J)) GO TO 6 

b. Print and display the altitude rate alarm 

6. Store altitude error and check for alarm condition 

a. Z( 3) = WLEVl (7) 

IF (Z(3).GT.ZAL(3,J) .AND. Z(3).LT.ZAU(3,J)) GO TO 7 

b. Print and display the altitude error alarm 

7. Store SWH and check for alarm condition 

a. Z(4) = WLEVl (8) 

IF (Z(4).GT.ZAL(4,J) .AND. Z(4).LT.ZAU(4,J)) GO TO 8 

b. Print and display the SWH alarm 


* 
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COMMENTS: 


8. Store the A6C word and check for alarm condition 

a. Z(5) - WLEVl (9) 

IF (Z(5).GT.ZAL(5,J) .AND. Z(5).LT.ZAU(5,J)) GO TO 9 

b. Print and display the AGC word alarm 

9. Store the AGC gate amplitude and check for alarm condition 

a. Z(6) - ULEV1 (10) 

IF (Z(6).GT.ZAL(6,J) .AND. Z(6).LT.ZAU(6,J)) GO TO 10 

b. Print and display the AGC gate amplitude alarm 

10. Store the noise gate amplitude and check for alarm condition 

a. Z(7) = WLEV1 (15) 

IF (Z(7).GT.ZAL(7,J) .AND. Z(7).LT.ZAU(7,J)) GO TO 11 

b. Print and display the noise gate amplitude alarm 

11. Chirp mode - store transmit power and check for alarm condition 

a. Z(8) = WLEVK18) 

IF (Z(8).GT.ZAL(8,J) .AND. Z(8).LT.ZAU(8,J) ) GO TO 13 

b. Print and display the chirp mode transmit power alarm 
GO TO 13 

12. CW mode - store transmit power and check for alarm condition 

a. Z(9) = WLEV1 (18) 

IF (Z(9).GT.ZAL(9,J) .AND. Z(9).LT.ZAU(9,J)) GO TO 13 

b. Print and display the CW mode transmit power alarm 

13. Update statistics for both 1-day and n-minute averaging 

a. All non-subcom data except transmit power (only attitude for CW 
mode) 

K2 = 7 

IF (ISTAT(18).EQ. 0) K2 = 1 
CALL STAT (2,1,K2,1,J) 

CALL STAT (2,1,K2,2,J) 

b. Transmit power (N * 8 for chirp mode, N = 9 for CW mode) 

IF (ISTAT(18) .EQ. 1) N » 8 
IF ( ISTAT( 18) .EQ. 0) N = 9 
CALL STAT (2,N,N,1,J) 

CALL STAT (2,N,N,2,J) 

14. End of algorithm 

RETURN 

1. The following TYPE statements must be included In the code of this 
submodule: 

DOUBLE PRECISION TMOD.THVON 

COMMON /HSCOM/ Z(75),ZL(75),ZU(75),ZE(75), 
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1 S1D(75,2),S2D(7$,2),N1D(75,2),N2D(75,2), 

2 ZMIND(75,2) ,ZMAXD(75,2),ZMD(7$,2) ,ZVD(75,2) ,2SD(75,2) , 

3 S1M(75,2),S2M(75,2),N1M(75,2),N2M(75,2), 

4 ZMINM(75,2),ZMAXM(75,2),ZMM(75,2),ZVM(75,2),ZSM(75,2), 

5 NEWDAY,ZAL(75,2) ,ZAU(75,2),NCNT(25) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

EQUIVALENCE (TMJD,WLEV1(117)) 

2, "Print" refers to printing on the Altimeter Diagnostics File (A.D-1.93) 
and "display" refers to displaying on the Master Control CRT File 
(A.D-CRT). 


HEALTH/STATUS MONITOR SUBCOM #1 PROCESSING SUBMODULE A.A-1.6.5 
TITLE: SUBROUTINE HSSUB1 

FUNCTION: To monitor subcom no. 1 parameters. In particular, this submodule 

1. accumulates statistics for subcom #1 parameters over 1-day and 
n-mlnute averaging periods, and 

2. sets off system alarms when potentially damaging or dangerous 
conditions are detected. 


REFERENCE: 

Not applicable 

CONTROL: 

A.A-1.6 


HSW1TR health/status monitor driver module 

SUPPORT: 

A.A-1. 6.1.1 

STATZ health/status monitor statistical submodule 

ACCESS: 

CALL HSSUB2 



ISTAT(2) 

m 

HV ON 

INPUTS: 

ISTAT(U) 

* 

channel select status (1 to 20) 


ISTAT(12) 

w 

ATU mode 


ISTAT(IB) 

m 

chlrp/CW (0 or 1) 


I$TAT(25) 

m 

altimeter designator {1 or 2) 


WLEV1 (19) 

m 

TWT beam current 


WLEV1 (20) 

m 

TWT cathode voltage 


WLEV1 (21 ) 

m 

TWT HVPS temperature 


WLEV1 (22) 

m 

TWT collector temperature 


WLEVl (23) 

m 

receiver temperature 


WLEV1 (24) 

u 

noise gate amplitude 


WLEV1 (25) 

m 

plateau gate amplitude 


WLEVl (26) 

m 

attitude gate amplitude 


WLEV1(27) 

w 

transmit power 
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OUTPUTS: 


WLEVK28) 

m 

UCFM temperature 

WLEV1(29) 

m 

DDL temperature 

WLEV1(30) 

m 

DOL ASSY temperature 

WLEV1(31) 

m 

HSUS temperature 

WLEV1 ( 32 ) 

a 

OFB temperature no. 1 

WLEV1 (33) 

a 

AT no. 1 temperature 

WLEV1(34) 

m 

AT no. 2 temperature 

WLEV1(35) 

m 

ICU temperature 

WIEV1(36) 

m 

SACU temperature 

WLEV1 (37) 

m 

LVPS temperature 

A. 0-1.93 

X 

Altimeter Diagnostics File 

A.D-CRT 

X 

Master Control CRT 

zoo) 

■ 

TWT beam current (HV ON only) 

z( 11 ) 

a 

TNT cathode voltage (HV ON only) 

Z (1 2) 

m 

TWT HVPS temperature (HV ON only) 

Z(13) 

a 

TNT collector temperature (HV ON only) 

Z(14) 

■ 

receiver temperature (HV ON only) 

Z(15) 

m 

noise gate amplitude (HV ON only) 

2(16) 

m 

plateau gate amplitude (HV ON only) 

Z(1 7) 

m 

attitude gate amplitude (HV ON only) 

Z(18) 

m 

transmit power (chirp mode; HV ON only) 

Z(19) 

m 

transmit power (CW mode; HV ON wily) 

Z(20) 

m 

UCFM temperature (HV ON only) 

Z(21) 

m 

DDL temperature (HV ON only) 

7(22) 

u 

DOL ASSY temperature (HV ON only) 

Z(23) 

m 

HSWS temperature (HV ON only) 

7(24) 

9 

DFB temperature no. 1 (HV ON only) 

7(25) 

m 

AT no. 1 temperature (HV ON only) 

7(26) 

m 

AT no. 2 temperature (HV ON only) 

Z(27) 

9 

ICU temperature (HV ON only) 

7(28) 

a 

SACU temperature (HV ON only) 

7(29) 

a 

LVPS temperature (HV ON only) 

7(44) 

a 

TWT HVPS temperature (HV OFF only) 

7(45) 

a 

TWT collector temperature (HV OFF only) 

7(46) 

a 

receiver temperature (HV OFF only) 

7(47) 

a 

noise gate amplitude (HV OFF only) 

7(48) 

m 

plateau gate amplitude (HV OFF only) 

7(49) 

a 

attitude gate amplitude (HV OFF only) 

7(50) 

a 

transmit power (chirp mode; HV OFF only) 
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TABLES: 

ALGORITHM: 


Z(51) ■ transmit power (CW mode; HV OFF only) 

Z(52) ■ UCFM temperature (HV OFF wily) 

Z( 53) ■ DDL temperature (HV OFF only) 

Z(54) - DDL ASSY temperature (HV OFF only) 

Z(55) - HSUS temperature (HV OFF only) 

Z(56) ■ DFB temperature no. 1 (HV OFF only) 

Z(57) ■ AT no. 1 temperature (HV OFF only) 

Z(58) ■ AT no. 2 temperature (HV OFF only) 

Z(59) ■ ICU temperature (HV OFF only) 

Z(60) » SACU temperature (HV OFF only) 

Z(61) ■ LVPS temperature (HV OFF only) 

Hone 

1. Set up ind ce; and branch to appropriate subcom word 

a. Set Indices and check for HV ON. N Is the channel select (N ■ 5 
Is not used) and M Is the accumulation array Index (see Tables 6.1 
and 6.2) 

J - ISTAT(25) 

N - ISTAT(ll) 

M » N + 9 

IF (H.GE.6 .AND. N.LE.VJ) M - N + 8 
IF (ISTAT(2) .EQ. 1) GO TO 1-c 

b. HV OFF (skip N - 1 and N » 2) 

IF (N .LE. 2) GO TO 23 
M - M + 32 

c. Branch to appropriate subcom word 

GO TO 2,3,4,... ,20,21), N 

2. TUT beam current 

a. Z(M) • WLEV1 (19) 

IF (Z(M).GT.ZAL(M.O) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the TUT beam current alarm 

c. GO TO 22 

3. TUT cathode voltage 

a. Z(M) - WLEV1 (20) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J) GO TO 22 

b. Print and display the TUT cathode voltage alarm 

c. GO TO 22 

4. TUT HVPS temperature 
a. Z(M) - WLEV1 ( 21 ) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 
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b. Print and display the TUT HVPS temperature alarm 

c. GO TO 22 

5. TUT collector temperature 

a. Z(M) - WLEV1 (22) 

IF (Z(M) .GT.ZAL(H,J) .AND. Z(M).LT.ZAU(M,0)) GO TO 22 

b. Print and display the TUT collector temperature alarm 

c . GO TO 22 

6 . No data 

GO TO 23 

7. Receiver temperature 

a. Z(M) » UIEV1 ( 23 ) 

IF (Z(M).GT.ZAl(M.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the receiver temperature alarm 

c. GO TO 22 

8. Noise gate amplitude 

a. Z(M) « ULEV1(24) 

IF (Z(H).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the noise gate amplitude alarm 

c. GO TO 22 

9. Plateau gate amplitude 

a. Z(M) - WLEVK25) 

IF (Z(M).GT.ZAL(H.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the plateau gate amplitude alarm 

c. GO TO 22 

10. Attitude gate amplitude 

a. Z(M) * WLEV1 (26) 

IF (Z(M).GT.ZAL(M,J) .AND. Z(M).IT.ZAU(H,J)) GO TO 22 

b. Print and display the attitude gate amplitude alarm 

c. GO TO 22 

11. Transmit power (chirp mode) 

a. IF (ISTAT(18) .EQ. 0) GO TO 11-d 
Z(M) ■ WLEV1 (27 ) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the transmit power (chirp mode) alarm 

c. GO TO 22 

Transmit power (CU mode; accumulate only In Test Mode 1) 

d. H » M ♦ 1 

IF (ISTAT02) .NE. 8) GO TO 24 
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Z(M) - WLEV1(27) 

IF (Z(M).GT.2AL(H,0) .AND. Z(M),LT.ZAU(M,J)} SO TO 22 

e. Print and display tha transmit power (Of mode) alarm 

f. SO TO 22 

12. UCFN temperature 

a. Z(M) « WCEV1 <28} 

IF (Z(H).GT.ZAL(M.O) .AND. Z(M).LT.ZAU(M,0)) GO TO 22 

b. Print and display tha UCFM tMparatura alarm 

c. SO TO 22 

13. DDL temperature 

a. Z(M) • HLEV1(29) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,0)) GO TO 22 

b. Print and display tha DDL temperature alarm 

c. 60 TO 22 

14. DDL ASSY temperature 

a. Z(M) - WLEYK30) 

IF (Z(M).GT.ZAL(M,0) .AND. Z(M).LT.ZAU(MJ)) GO TO 22 

b. Print and display the DDL ASSY temperature alarm 

c. SO TO 22 

15. HSWS temperature 

a. Z(N) » WLEV1 ( 31 ) 

IF (Z(M).ST.ZAL(M«J) .AND. Z(M).LT.ZAUOU)) SO TO 22 

b. Print and display the HSUS temperature alarm 

c. GO TO 22 

16. DFB temperature no. 1 

a. Z(M) - WLEV1 ( 32) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M.J)) GO TO 22 

b. Print and display the DFB temperature no. 1 alarm 

c. GO TO 22 

17. AT no. 1 temperature 

a. Z(M) - «LEV1(33) 

IF (Z(K).GT.ZAL(M.J) .AND. Z(H).LT.ZAU(M,J)) GO TO 22 

b. Print and display the AT no. 1 temperature alarm 

c. GO TO 22 

18. AT no. 2 temperature 

a. Z(M) - WLEY1(34) 

IF (Z(M).GT.ZAL(H.O) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the AT no. 2 temperature alarm 

c. GO TO 22 
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COMMITS: 


TITLE: 

FUNCTION: 


19. ICU temperature 

a. Z(M) - WLEV1 ( 35) 

IF (Z(M).GT.ZAL(H.J) .AND. Z(M).LT.ZAU(N,J)) GO TO 22 

b. Print and display the ICU temperature alarm 

c. GO TO 22 

20. 5ACU temperature 

a. Z(M) - WLEV1 (36) 

IF (Z(H).GT.ZAL(fl.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 22 

b. Print and display the SACU temperature alarm 

c. GO TO 22 

21. LVPS temperature 

a. Z(M) - WLEV1 (37) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(N).LT.ZAU(M f J)) GO TO 22 

b. Print and display the LVPS temperature alarm 

22. Update the statistics for 1-day and n-mlnute averaging 

CALL STATZ (2,M,M,1,J) 

CALL STATZ (2,M,M,2,J) 

23. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule: 

COMMON /HSCOM/ Z(75) ,ZL(75),ZU(75),ZE(75), 

1 S1D(75,2) ,S2D(75,2) ,N1D(75.2) ,N2D(75,2) , 

2 ZMIND(75,2),ZMAXD(75,2),ZHD(75,2),ZVD(75,2),ZSD(75,2), 

3 S1M(75,2) ,S2M(75,2),N1H(75,2),N2M{75,2) , 

4 ZMINM(75,2),ZMAXM(75,2),ZMM(75,2),ZVM(75 f 2),ZSM(75,2), 

5 NEWDAY,ZAL(75,2),ZAU(75,2),NCNT(25) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ ULEV1(300) 

2. "Print" refers to printing on the Altimeter Diagnostics File (A.D-1.93) 
and "display" refers to displaying on the Master Control CRT File 
(A.D-CRT). 


HEALTH/STATUS MONITOR SUBCOM # 2 PROCESSING SUBMODULE A.A-1.6.6 
SUBROUTINE HSSU62 

To monitor subcom #2 parameters. In particular, this submodule 
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1. accumulate* statistics for subcom #? parameters over 1-day and 
n-mlnuta averaging periods, and 

2. sets off system alarms when potentially damaging or dangerous 
conditions are detected. 


REFERENCE: 

Not applicable 

CONTROL: 

A.A-1.6 


HSHNTR health/status monitor dr Iter module 

SUPPORT: 

A.A-1.6, 1.1 

STATZ health/status monitor statistical submodule 

ACCESS: 

CALL HSSUS2 


INPUTS: 

ISTAT(2) 

m 

HV ON 


ISTAT(ll) 

m 

channel select status (1 to 20) 


ISTaT(25) 

m 

altimeter designator {1 or 2) 


WLEV1(38) 

m 

LVPS 38V current 


WLEV 1 (39) 

m 

+28V S/C bus Isolated 


WLEV1(40) 

m 

+28V 


WLEV1(41) 

m 

♦15V 


WLEV1(42) 

m 

-15V 


ULEM1(43) 

m 

♦7V 


WLEV1(44) 

9 

-9V 


WLEV1 (45) 

n 

+5V 


WLEV1(46) 

m 

-5.2V 


WLEV1 (47) 

u 

+1.00 REF 


WLEV1(48) 

m 

0.657V REF 


WLEVl (49) 

9 

SACU PLO LOCK 


WLEVl(SO) 

w 

MTU temperature 


WLEVI(SI) 

9 

DFB temperature no. 2 

OUTPUTS: 

A.D-1.93 

9 

Altimeter Diagnostics File 


A.O-CRT 

U 

Master Control CRT 


Z(30) 

9 

LVPS 38V current 


Z(31) 

9 

♦28V S/C bus Isolated 


Z(32) 

9 

♦28V 


Z(33) 

9 

+15 V 


Z(34) 

9 

-15 V 


Z(35) 

9 

♦7V 


Z(36) 

9 

-9V 


Z(37) 

9 

♦5V 


Z(38) 

9 

-5.2V 


Z( 39) 

9 

♦1.00 REF 


Z(40) 

9 

0.657V REF 


Z(41) 

9 

SACU PLO LOCK 
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TABLES: 

ALGORITHM: 


Z(42) ■ MTU temperature 

2(43) ■ DFB temperature no. 2 

Z(62) - LVPS 38V current (HV OFF only) 

Z(63) - +28V S/C bus isolated (HV OFF only) 

Z(64) - +28V (HV OFF only) 

Z(65) - +15V (HV OFF only) 

Z(66) - -15V (HV OFF only) 

Z(67) » +7 V (HV OFF only) 

Z(68) - -9V (HV OFF only) 

Z(69) ■ +5V (HV OFF only) 

Z(70) - -5.2V (HV OFF only) 

Z( 71 ) • +1 .OOV REF (HV OFF only) 

Z(72) ■ 0.657V REF (HV OFF only) 

Z( 73) - SACU PLO LOCK (HV OFF only) 

Z( 74) ■ MTU temperature (HV OFF only) 

Z(75) ■ DFB temperature no. 2 (HV OFF only) 

None 

1. Set up indices and branch to appropriate subcom word 

a. Set Indices and check for HV ON. N is the channel select (N ■ 14 
and N > 15 are not used) and M is the acoanulation array index 
(see Tables 6.1 and 6.2). 

J » ISTAT(25) 

N - I ST AT (11) 

M ■ N + 29 

IF (N.EQ.14 ,0R. N.GT.15) GO TO 17 
IF (N .EQ. 15) M - N + 28 
IF ( ISTAT(2) .EQ. 1) GO TO 1-c 

b. HV OFF 

M - H ♦ 32 

c. Branch to appropriate suborn word 

GO TO (2,3,4... .,14,15), N 

2. LVPS 38V current 

a. Z(M) - WLEV1(38) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,U)) GO TO 16 

b. Print and display the LVPS 38V current alarm 

c. GO TO 16 

3. +28V S/C bus Isolated 
a. Z(M) - WLEVK39) 

IF (Z(N).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 16 
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b. Print and display tha +28V S/C bus Isolated alarm 

c. GO TO 16 
♦28V 

a. Z(H) - WLEV1 ( 40) 

IF (Z(H).GT.ZAL(N,J) .AND. Z(N).LT.ZAU(M)) 80 TO 16 

b. Print and display tha +28V alarm 

c. GO TO 16 
♦15V 

a. Z(M) - ULEV1(41) 

IF (Z(N).GT.ZAl(N,J) .AW). Z(N).LT.ZAU(H,0)) GO TO 16 

b. Print and display tha ^HV alarm 

c. GO TO 16 
-15V 

a. Z(M) - MLEV1(42) 

IF (Z(M).GT.ZAL(M,J) .AW). Z(N).LT.ZAU(M.J)) GO TO 16 

b. Print and display tha -15V alarm 

c. GO TO 16 
♦7V 

a. Z(M) » WLEV1{43) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(f1.J)) GO TO 16 

b. Print and display tha +7V alarm 

c. GO TO 16 
-9V 

a. Z(M) - WLEV1(44) 

IF (Z(h).GT.ZAL(N.J) .AND. Z(N).IT.ZAU(H,J)) GO TO 16 

b. Print and display tha -9V alarm 

c. GO TO 16 
♦5V 

a. Z(N) • ULEV1(45) 

IF (Z(M).GT.ZAL(H,0) .ANO. Z(H).LT.ZAU(N,J)) GO TO 16 

b. Print and display tha +5V alarm 

c. GO TO 16 
-5.2V 

a. Z(M) - WLEVK46) 

IF (Z(M).GT.ZAL(M,J) .ANO. Z(N).LT.ZAU(M.J)) GO TO 16 

b. Print and display tha -5.2V alarm 

c. GO TO 16 
♦1.00V REF 

a. Z(M) • W.EVM47) 


COMMENTS : 


IF (Z(M).GT.ZAL(M,J) .AND. Z(M),LT.ZAU(M,J)) GO TO 16 

b. Print and display the +1.00V REF alarm 

c. GO TO 16 

12. 0.657V REF 

a. Z(H) - WLEV1 (46) 

IF (Z(M).GT.ZAL(M,J) .AND. Z(M).LT.ZAU(M,J)) GO TO 16 

b. Print and display the 0.657V REF alarm 

c. GO TO 16 

13. SACU PLO LOCK 

a. Z(M) - WLEV1 (49) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J)) GO TO 16 

b. Print and display the SACU PLO LOCK alarm 

c. GO TO 16 

14. MTU temperature 

a. Z(M) ■ WLEVM50) 

IF (Z(M).GT.ZAL(M.J) .AND. Z(M).LT.ZAU(M,J)) GOTO 16 

b. Print and display the MTU temperature alarm 

c. GO TO 16 

15. DFB temperature no. 2 

a. Z(M) - WLEV1 (51) 

IF (Z(M).GT.ZAL(M.U) .AND. Z(M).LT.ZAU(M,J)) GO TO 16 

b. Print and display the DFB temperature no. 2 alarm 

16. Update statistics for 1-day and n-mlnute averaging 

CALL STATZ (2,M,M,1,J) 

CALL STATZ (2,M,M,2,J) 

17. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In this submodule 

COMMON /HSCOM/ Z(75).ZL(75),ZU(75).ZE(75), 

1 S10(75,2).S20(75,2).N1D(75.2),N20(75,2), 

2 ZMIND(75,2),ZMAXO(75,2),ZMD(75,2),ZVD(75,2),ZSO(75,2), 

3 S1M(75,2),S2M(75,2),N1M(75,2),N2H(75.2), 

4 ZMINM(75,2),ZmXM(75.2).ZIf1(75,2),ZVM(75,2).ZSM(75,2). 

5 NEWDAY.ZAL ( 75,2) ,ZAU( 75,2) ,NCNT( 25) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ ULEVuTOO) 

2. "Print" refers to printing on the Altimeter Diagnostics File (A. 0-1. 93) 
and "display" refers to the displaying on the Mister Control CRT File 
(A.D-CRT). 
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HEALTH/STATUS MONITOR SUBCON #3 PROCESSING SUBNOOULE A.A-1.6.7 
TITLE: SUBROUTINE HSSU83 

FUNCTION: To monitor changes In the status words contained In tubcm #3 and to print 

a roport whan any changes occur. 

REFEi&NCE: Not applicable 

CONTROL: A.A-1.6 HSMNTR health/status monitor driver modulo 

SUPPORT: None 

ACCESS: CALL HSSUB3 

INPUTS: ISTAT(II) ■ channel select sutus (1 to 20) 

I STAT ( 30 ) • LVPS current 
1STAT(31) - AT number 
I STAT (32) ■ acquisition constant Index 
1 STAT (33) - track constant Index 
ISTAT(34) - AGC threshold Index 
I STAT (35) - a, 8, and AGC acquisition 
ISTA?(J6) ■ a, 8, and AGC track Index 
!STAT(37) ■ AH gate width Index 
I$TAT(38) - L 6 -E 6 track Index 
ISTATC39) ■ height error Index 
I$TAT(40) ■ Lg-Eg acquisition Index 
ISTAT(41) ■ wavehelght curve offset 
ISTAT(42) • acquisition height offset 
OUTPUTS: A.D-1.93 ■ Altimeter Diagnostics File 

A.D-CRT - Master Control CRT Flic 
TABLES: None 

ALGORITHM: 1. Branch to appropriate subcom word (NCH6 » 0 means no chants, NCM6 ■ 1 

means changes have occurred, MSTAT(I) * 0 means that no change has 

occurred In that particular status, MSTAT(I) > 1 means that a change 
has occurred In that particular status) 

J ■ ISTAT(25) 

N - ISTAT(ll) 

IF (ISTAT(ll) .GT. 5) GO TO 9 
GO TO (2,3,4, 5,6), N 
2, Check relay status for changes 

IF (ISTAT(29) .NE. JSTAT(l)) HSTAT(l) • 1 
IF (I$TAT(30) .NE. J$TAT(2)) MSTAT(2) • 1 
IF (ISTAT(29) .CQ. 0) print and display the TWTA fault 
override alarm 

IOS 


IF (ISTAT(30) .EQ. 1) print and display the LVPS current 
override alarm 

IF ( (MSTATtl )-l)*(NSTAT(2)-l ) .EQ. 0) HCH6 * 1 
GO TO 9 

3. Check parameter select no. 1 for changes 

IF (ISTAT(32) .HE. JSTAT(3)) MSTAT(3) - 1 

IF ( ISTAT (33) .NE. JSTAT(4)) MSTAT(4) » 1 

IF (ISTAT(34) .NE. J$TAT(5)) HSTAT(5) = 1 

IF ((NSTAT(3)-1)*(MSTAT(4)-1 )*(HSTAT(5)-1 ) .EQ. 0) NCHG * 1 
GO TO 9 

4. Check parameter select no. 2 for changes 

IF ( I STAT ( 35 ) .NE. JSTAT(6)) MSTAT(6) = 1 

IF (ISTAT(36) .NE. JSTAT(7)) HSTAT{7) = 1 

IF ((MSTAT(6)-1)*(NSTAT(7)-1) .EQ. 0) NCHG = 1 
GO TO 9 

5. Check parameter select no. 3 for changes 

IF (ISTAT(37) .NE. JSTAT(8)) MSTAT(8) = 1 

IF ( ISTAT(38) .NE. JSTAT(9)) HSTAT(9) = 1 

IF (ISTAT(39) .NE. JSTAT(IO)) MSTAT(IO) = 1 

IF (ISTAT(40) .NE. JSTAT(ll)) HSTAT(ll) = 1 

IF ( (HSTAT(8)-1 )*(MSTAT{9)-1)*(MSTAT(10)-1 )*{MSTAT(11 )-l ) 

1 .EQ. 0) NCHG = 1 
GO TO 9 

6. Check parameter select no. 4 for changes 

IF ( ISTAT (41 ) .NE. JSTAT(12)) MSTAT(12) = 1 

IF (ISTAT(42) .NE. JSTAT(13)) HSTAT(13) * 1 

IF ( (MSTAT(12)-1 )*(MSTAT(13)-1 ) .EQ. 0) NCHG = 1 
IF (NCHG .EQ. 0) GO TO 8 

7. Changes have occurred - print all subcom #3 statuses with an asterisk 
next to those statuses that have changed (MSTAT(I) * 1) 

8. Reset all test words so that the next data record can be compared 
with this data record 

DO 100 I = 1,13 
MSTAT(l) = 0 

100 JSTAT(I) * I STAT (1+29) 

NCHG » 0 

9. End of algorithm 

RETURN 


COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 


OUTPUTS: 


TABLES: 

ALGORITHM: 


1. The following TYPE statements must he Included In the code of this 
subnodule 

DIMENSION JSTAT(13),MSTAT(13) 

COMMON /STATUS/ ISTAT(IQO) 

DATA JSTAT ,MSTAT/26*-9999/ , NCHG/Q/ 

2. "Print 1 * refers to printing on the Altimeter Diagnostic File (A.D*1.93) 
and "display" refers to displaying on the Master Control CRT File 
(A.D-CRT). 


LEVEL 2 DRIVER MODULE A.A-2.0 


SUBROUTINE ALT2DR 

Driver module for the altimeter level 2 software 
Not applicable 

A.A-0.0 ALTMTR altimeter main driver module 

A.A-2.1 CONTAM contamination processing module 

A.A-2.2 COMPRS data compression module 

A.A-2.3 WAVFRM waveform module 

A.A-2.4 ATMOS atmospheric module 

A.A-2.5 WNDSIG wind speed/backscatter coefficient module 

A.A-2.6 AL2C0R level 2 altitude correction module 

A.A-2.7 ICE ice sheet height module 

A.A-2.8 SEAICE sea ice module 

A.A-2.9 QUALTY quality control module 

Call ALT2DR (I FUG) 

IEXEC » array containing executive parameters 

ISTAT * array containing status words 

WLEV1 * array containing level 1 output products 

ISTAT * array containing status words 

WLEV2 * array containing level 2 output products 

I FUG ■ 0 if level 2 output to be written 

• 1 if level 2 output not to be written 

None 

1. Classify the subsatellite point 

CALL CONTAM 

2. Compress the data 

CALL COMPRS (I FLAG) 

IF {I FLAG .EQ, 1) GO TO 11 
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COMMENTS: 


TITLE: 

FUNCTION: 


3. Process waveform data 

CALL UAVFRM 

4. Process atmospheric data 

CALL ATMOS 

5. Calculate the wind speed 

CALL WNDSIG 

6. Calculate the level 2 altitude corrections 

CALL AL2COR 

7. Check subsatellite point for ice or currents 

IF ( ISTAT (42 ) .EQ. 1) GO TO 8 
IF (ISTAT(42) .EQ. 2) GO TO 9 
GO TO 10 

8. Ice sheet data 

CALL ICE 
GO TO 10 

9. Sea ice data 

CALL SEAICE 

10. Monitor quality control 

CALL QUALTY (I FLAG) 

11. End of algorithm 

RETURN 

1. The following TYPE statements must be included In the code of this 
module: 

COMMON /EXECUT/ IEXEC(IOO) 

COMMON /STATUS/ ISTAT (100) 

COMMON /SENSOR/ WIEV1(300) 

COMMON /GEOPHY/ WLEV2(325) 


CONTAMINATION PROCESSING A.A-2,1 


SURBOURINTE CONTAM 

To classify the nature of the subsatellite point as either land, water, or 
ice. This classification, which is derived from analysis of the altimeter 
data with a resolution of approximately 1 km, should not be confused with 
the classification performed In the location classification module 
(A.A-1.5), which is derived from a world surface map and has a resolution 
of approximately 10 km. The module will estimate the time and location of 
of land/water and ice/water Interfaces. In addition, a flag will be set 
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REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 

COMMENTS: 


to Indicate If the data art appropriate for processing fay tho waveform 
module. 

Martin, C. F. and R. L. Taylor, “Report on Boundary Detection Criteria 
for Satellite Altimeters," NASA CR- 156880, September 1981 . 

A.A-2,0 ALT2DR level 2 driver module 


None 

CALL CONTAM 

ISTAT(28) 

ISTAT(44) 

WLEV1(7) 

WLEVK135) 

WLEV1(16) 

WLEVK17) 

WLEV1(8) 

MLEVK114) 

WLEV2(15) 


None 


adaptive resolution step flag 

subsatelllte point classification flag from A.A-1.5 

altitude error In (m,0.01) 

AGC In (dB.0.01) 

plateau gate In (mv.0.01) 

attitude gate In (mv,0.01) 

significant wave height In (m,0.01) 

altitude acceleration In (m/s ,0.01) 

subsatelllte point classification flag Cl for water, 2 for 

Ice, 3 for land, 4 for unknown) 


TBD 

1. Only a functional description Is given. 


DATA COMPRESSION MODULE A.A-2.2 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


SUBROUTINE COMPRS 

To compress the level 1 output to a selectable rate. Nonproduction data 
modes, such as cal mode, trigger kill, and standby will be edited. The 
module also calculates standard deviations of selected parameters for 
later quality analysis. 

Not applicable 

A.A-2.0 ALT2DR level 2 driver module 
None 

CALL COMPRS (IFLAG) 

IEXEC(3) ■ orbit number 

IEXEC(5) * compression period In hundredths of a second 

!STAT(9) « mode command 

ISTAT(ll) ■ channel select 

ISTAT(25) • altimeter designator 
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ISTAT(44) - zone flag 
WLEV1 > level 1 products 

OUTPUTS; I FLAG ■ 0 If compression period Is complete 

• 1 If compression period Is not complete 
WLEV2 ■ level 2 output array 

TABLES: Table 2.2a Parameters For Milch Means Only Are Calculated 

Table 2.2b Parameters For Which Means and Standard Deviations Are 
Calculated 

Table 2.2c Parameters Which Are Linearly Fit Without Computation of 
Standard Deviations 

Table 2. 2d Parameters Which Are Linearly Fit With Computation of 
Standard Deviations 

Table 2.2e Special Parameters To Be Compressed 
ALGORITHM; 1. Skip all but track mode data 

I FLAG - 1 

IF ( ISTAT(9).LT.3 .OR. ISTAT(9).GT.6) GO TO 16 

2. Check to make sure that the current time (TMJD) Is greater than the 
last time (TL) and that It is less than the ending time of the com- 
pression period (T2) 

IF (TMJD .LT. TL) GO TO 9 
IF (TMJD .GT. T2) GO TO 10 

3. Process new data for those parameters listed In Table 2.2e 

a. Altimeter number (ISTAT(25) Is the altimeter number and LALT Is 
the previous altimeter number) 

IF ISTAT(25) .NE, LALT) GO TO 10 
WLEV2(2) ■ I STAT (25) 

b. Orbit number (TMJD Is the current time, and TE Is the evaluation 
time of the compression period, and 1EXEC(3) is the orbit number) . 

IF (TMJD .LE. TE) WLEV2(1) - IEXEC(3) 

c. Zone flag. If ISTAT(44) changes, then the zone flag Is set to 
zero. Indicating an undefined area. (LFLAG Is the zone flag at 
the beginning of the compression period.) 

IF (I$TAT(44) .NE. LFLAG) LFLAG - 0 

4. Add new data to those parameters listed In Table 2.2a. N1 Is the total 
number of parameters, II Is the array containing the WLEV1 Indices, SI 
Is the array containing the summations, and Ml Is the array containing 
the number of samples used In the sunmatlons. 

DO 100 N - 1, HI 
IF (N .LE. 8) GO TO 50 
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IF (N.EQ.9 .AND. ISTAT(U).NE.13) GO TO 100 
IF (N.EQ.10 .AND. I$TAT(11).NE,15) GO TO 100 
IF (N.EQ.11 .ANO. ISTAT(11).NE.4) GO TO 100 
50 I - II (N) 

HI (N) « HI (N) ♦ 1 
S1(N) - SI (N) ^ WLEVl(I) 

100 CONTINUE 

5. Add new deU to those perimeters listed In Table 2.2b. N2 Is the total 
number of parameters, 12 Is the array containing the WIEV1 Indices, S2A 
and S2B are the arrays containing the summations, and M2 Is the array 
containing the number of samples used In the summations. 

00 200 N - 1 , N2 

1 - I2(N) 

M2(N) - M2(N) + 1 
S2A(N) - S2A(N) ♦ WLEV1(I) 

200 S2B(N) • S2B(N) + WLEV1 < I )*WLEV1 ( I ) 

6. Add new data to those parameters listed In Table 2.2c. N3 Is the total 
number of parameters, 13 1$ the array containing the WLEV1 Indices, 

S3A, S3B, S3C, and S3E are the arrays containing the summations, M3 1$ 
the array containing the number of samples used In the summations and 
0T Is the number of seconds elapsed since the beginning of the com- 
pression period. The assumption Is made that the orbit Is retrograde 
and that the longitude Is always between 0 and 360 degrees. 

DT « (TMJD-T1) * 86400.00+00 
DO 300 N - 1 , N3 
I - I3(N) 

DX - WLEVl(I) 

IF (N.EQ.2 .AND. DX.GT.RLON) DX - DX - 360.0 
IF (N .EQ. 3) DX » HGT - HGTO 
H3{N) > M3(N) + 1 
S3A(N) « S3A(N) + DT 

S38(N) - $3B(N) ♦ DX 

$3C(N) - S3C (N ) + DT*DX 

300 S3E(N) ■ S3E(N) + DT*DT 

7. Add new data to those parameters listed In Table 2. 2d. N4 Is the total 
number of parameters, 14 Is the array containing the WIEV1 Indices, 

S4A, S4B, S4C, S40, and S4E are the arrays containing the summations , 
and M4 Is the array containing the number of samples used In the summa- 
tions. 


ill 


00 400 N - 1 , N4 

1 • 14(H) 

OX - WLEVl(I) 

IF (N .EQ. 1) DX ■ H - HO 
M4(N) - M4(N) ♦ 1 
S4A(N) - S4A(N) + DT 

S4B(N) - S4B(N) + OX 

S4C(N) ■ S4C(N) + DT*OX 

S4D(N) « S40(N) + DX*DX 

400 S4E(N) » S4E(N) ♦ DT*DT 

8. Save the current time and then skip to the end of the module. 

TL - TMJD 
GO TO 16 

9. Current time (TMJD) Is either less than the previous time (TL) print 
warning message and skip this record. 

GO TO 16 

10. Check for the first entry to the module (I£XEC(5) Is the compression 
period In hundredths of a second.). 

IF (TE .GT. 0.0) GO TO 11 
T2 - TMJD 

CP - OFLCWVT ( I EXEC ( 5 ) ) / 86400.00+02 
WLEV2(4) - 0.01 * IEXEC(5) 

GO TO 15 

11. Compute the means of those parameters listed In Table 2.2a. N1 Is the 
total number of parameters, J1 Is the array containing WLEV2 Indices, 
SI Is the array containing the sunmatlons, and Ml Is the array con- 
taining the number of samples used In the summations. 

I FLAG - 0 
WLEV2(14) ■ LFLAG 
00 500 N ■ 1 , ni 
J - J1(N) 

WLEV2(J) - -9999.0 

IF (Ml (N) .EQ. 0) GO TO 500 

WLEV2(J) - SI (N) / Ml (N) 

500 CONTINUE 

12. Compute the means and standard deviations about the means for those 
parameters listed In Table 2.2b. N2 Is the total number of param- 
eters, J2A Is the array containing the WLEV2 mean Indices, J3B Is 
the array containing the MLEV2 standard deviation Indices, S2A and 
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S2B arc the arrays containing the summations, and H2 Is the array 
containing the number of samples used In the simulations. 

00 600 N - 1 , N2 
JA - J2A(N) 

JB - J2B(N) 

WLEV2( JA) - -9999.0 
ULEV2( JB) - -9999.0 
IF (M2(N) « EQ. 0) 60 TO 600 
WLEV2(JA) - SA(N) / M2(H) 

IF (N2(N) .EQ. 1) 60 TO 600 

WLEV2(JB) - $QRT((SB(N)*M2(N)-$A(N)*SA(N))/(M2{N)*(M2(N)-1))) 
600 CONTINUE 

13. Compute the linear fit of those parameters listed In Table 2.2c. N3 
is the total number of parameters, J3 Is the array containing the 
WLEV2 Indices, S3A, S3B, S3C, and S3E are the arrays containing the 
summations, M3 Is the array containing the number of samples used 

In the sunmatlons and TE Is the evaluation time. 

DO 700 N » 1 , N3 
J - J3(N) 

WLEV2(J) « -9999.0 
IF (M3(N) .EQ. 0) GO TO 700 
D - S3A(N)*S3A(N) - S3E(N)*M3(N) 

A • (S3A(N)*$3B(N) - S3C(N)*N3(N)) / D 
B - (S3A(N)*S3C(N) - S3B(N)*S3E(N)) / D 
WLEV2 ( J ) » A*TE + B 
700 CONTINUE 

IF (WLEV2(8) .LT. 0.0) WLEV2(8) « WLEV2<8) + 360.0 

HGTC » WLEV2(9) + HGTO 

IF ( M3 { 3 ) .EQ. 0) HGTC • -9999.00+00 

14. Compute the linear fit and the standard deviation about the fit for 
those parameters listed In Table 2. 2d. N4 Is the total number of 
parameters, J4A Is the array containing the NLEV2 mean Indices, J4B 
is the array containing the WLEV2 standard deviation Indices, S4A, 
S4B, S4C, S4D, and S4E are the arrays containing the summations, 

M4 Is the array containing the number of samples used In the summa- 
tions and TE Is the evaluation time. 

DO 800 N - 1 , N4 
JA - J4A(N) 

JB » J4B(N) 
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WLEV2 (OA) - >9999,0 
WLEV2(J6) • -9999.0 
IF (H4(N) ,EQ. 0) GO TO 800 
0 * S4A(N)*S4A(N) - S4C(N)*N4(N) 

A - (S4A(N)*S4B(N)-S4C(N)*M4(N)) / 0 
B - (S4A<N)*S4C(N)-S4B(N)*S4E(N)) / D 
WLEV2 ( JA ) - A*TE + B 
IF (N4(N) .EQ. 1) GO TO 750 
SH - S40(N) - $4B(N)*$4B(N)/N4(N) 

WIEV2( JB) » $QRT(SH/ (M4(N)*(M4(H)-1 ))) 

800 CONTINUE 

WLEV203) - H4(l) 

HC * WLEV207) 4 HO 

IF (M4{1 ) .EQ. 0) HC - -9999.00+00 

Reset parameters for next compression period 

a. Set time parameters {T1 Is the beginning time of the compression 
period, T2 Is the ending time of the compression period, TE Is 
the evaluation time within the compression period, and CP Is the 
length of the compression period expressed In days). 

900 IF (TM0D.GE.T1 .ANO. TMJD.LT.T2) GO TO 910 
T1 = T2 
12 * T1 + CP 
GO TO 900 

910 TE « T1 + CP/2.0 

b. Reset the counters and summations 

DO 920 N a 1, N1 
Ml (N) - 0 
920 SI (N) - 0.0 
DO 930 N - 1 , N2 
H2(N) - 0 
S2A(N) - 0.0 
930 S2B(N) - 0.0 
DO 940 N - 1 , N3 
N3(N) - 0 
S3A(N) • 0.0 
S3B(N) - 0.0 
S3C(N) « 0.0 
940 S3E(N) - 0.0 
DO 950 N - 1 . N4 


COMMENTS: 


M4(N) - 0 
S4A(N) - 0.0 
S4B(N) - 0.0 
S4C(N) - 0.0 
S40(N) - 0.0 
950 S4E(N) • 0.0 

c. Save the Initial conditions for longitude, spheroid height, and 
altitude 

RLON - WLEV1 (152) 

HGTO - H6T 
HO » H 

LALT - ISTAT{25) 

LFLAG - ISTAT(44) 

GO TO 4 
16. End of module 
RETURN 

1. The following TYPE statements must be Included In the code of this 
module: 

DOUBLE PRECISION TMJD,TE,TL,T1 ,T2,CP,HGT,HGT0,HGTC,H,H0,HC 
DIMENSION Ml (1 1 ) ,S1 (1 1 ) ,M2(93) ,S2A(93) ,S2B(93) ,M3(3) , 

1 S3A(3),S3B(3) 

DIMENSION S3C(3),S3E(3),M4(5) ,S4A(5),S4B(5),S4C(5) ,S4D(5) , 

1 S4E(5) 

COMMON /T22A/ N1 f Il(ll),01(ll) 

COMMON /T22B/ N2, 12(93), J2A(93),J2B(93) 

COMMON /T22C/ N3,I3(3),J3{3) 

COMMON /T22D/ N4,I4(5),J4A(5),J4B(5) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /EXECUT/ I EXEC (100) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /GEOPHY/ WLEV2(325) 

EQUIVALENCE (H. WLEV1(5)) , (HGT, WLEV1(137)) 

EQUIVALENCE (HC,HLEV2(17)) , (HGTC,WLEV2(9)) 

EQUIVALENCE (TMJD, WLEV1 (117)) 

EQUIVALENCE (TE, ULEV2(5)) 

DATA TE/-9999.0D-H)0/ , T2/-9999. 00+00/ , LALT/-9999/ 
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WAVEFORM MODULE 


A.A-2.3 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 


SUBROUTINE WAVFRM 

Driver nodule for the level 2 waveform processing 
Not applicable 

A.A-2.0 ALT2DR level 2 driver nodule 

A.A-2.3.1 SWHFIT waveform processor driver submodule 

A.A-2. 3.2 WAVALT waveform altitude correction submodule 

A.A-2.3. 3 SWHCOR waveform SWH correction submodule 

A.A-2. 3.4 SWHBIAS waveform SWH bias submodule 

A.A-2. 3. 5 WFPROD waveform products submodule 

CALL WAVFRM 

None 

None 

None 

1. Access waveform processor submodule 

CALL SWHFIT (NLO.NUP.WTY) 

2. Access waveform altitude correction submodule 

CALL WAVALT 

3. Access waveform SWH correction submodule 

CALL SWHCOR 

4. Access waveform SWH bias submodule 

CALL SWHBIAS 

5. Access waveform products submodule 

CALL WFPROD 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule: 

DIMENSION WTY(63) 

DATA NL0/1/.NUP/63/ , WTY/63*0.01 
These values are SEASAT specific. 


WAVEFORM PROCESSOR DRIVER SUBMODULE A.A-2.3.1 

SUBROUTINE SWHFIT 

Driver submodule of the waveform modeled parameter recovery. This group 
of submodules fits a model waveform to the waveform data to obtain estl- 
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REFERENCE: 

CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 


OUTPUTS: 


Mtet of the parameters characterizing the modeled waveform. The 
particular modeled radar waveform used for SEASAT data analysis Is 
characterized by six parameters: 1) amplitude; 2) time origin or track 
point; 3) ocean surface rms roughness; 4) noise baseline; S) ocean sur- 
face skewness; and 6} attitude or off-nadir angle. These are also ex- 
pected to characterize the NOSS waveform. 


The time origin parameter Is the location of the actual mean return wave* 
form relative to the altimeter's eltltude-tracker-posltloned waveform 
sample set, and the time origin Is thus directly Interpretable as an 
altitude correction to be applied to the real-time altitude output. The 
ocean surface rms roughness provides a revised estimate of the signifi- 
cant wavehelght (SMI). The ocean surface skewness pa race ter provides 
additional Information about the surface elevation probability density 
function and possibly also about the ocean wave spectrum. The ampli- 
tude parameter may be used to revise the altimeter-estimated surface 
backscatvrlng cross-section, and the attitude angle also leads to a 
correct In to the backscatter. The noise baseline parameter Is of 
relatively little direct Interest but must be Included as one of the 
fitted waveform parameters because the waveform samples measure radar 
signal plus noise. 

Hayne, 6. S. , "Radar Altimeter Waveform Modeled Parameter Recovery," 

NASA TM- 73294, April 1981 
A.A-2.3 WAVFRM waveform module 

A.A-2.3. 1.1 FILLD derivative submodule 

A.A-2.3. 1.2 SYMINV matrix inversion submodule 

A.A-2.3. 1.1.1 FILLV convolution submodule 

CALL SWHFIT (NLO.NUP.WTY) 


NLO 

NUP 

WTY 

WLEV2(21 ) 
WLEV2(101-163) 
WLE V2 ( 227 ) 
WLEV2(228) 

WLE V2 ( 229 ) 


first waveform sample used In the fit (>.1) 
last waveform sample used In the fit (<,63) 

Input waveform sample weights 
mean compressed SWH 
mean compressed waveform samples 
rss of fit 
kurtosls estimate 

waveform processor convergence flag 
1 for normal convergence 
-1 for Increasing sum of squared errors 
-2 for matrix Inversion failure 

•10 for waveform sample value outside acceptable limits 
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TABLES: 

ALGORITHM: 


WLEV2(230) 
WLEV2 (231 ) 
HIE V2 (232) 
WLEV2 (233) 
WLE V2 (234 ) 
WLEV2(235) 
Table 2.3.1. 


2 for amplitude estimate outside acceptable limits 

3 for time origin estimate outside acceptable limits 

4 for risetime estimate outside acceptable limits 

5 for baseline estimate outside acceptable limits 

6 for skewness estimate outside acceptable limits 

7 for attitude estimate outside acceptable limits 

8 for kurtosls estimate outside acceptable limits 

* significant wavehelght estimate 

• attitude estimate 

■ skewness estimate 
- amplitude estimate 

■ altitude correction from waveform processor 

■ baseline estimate 

Time Location and Indexing for the 63 SEASAT Waveform 
Samples 


1. Set Initial values, limits 

Lot*r and upper waveform sample numbers (63 Is the number of SEASAT 
waveform samples) 

IF (NLO .LT. 1) NLO - 1 
IF (HUP .GT. 63) NUP - 63 

Fractional change limit for satisfactory convergence 
ERLIM > 0.001 


Maximum Iteration limit 
LIMIT - 30 


Iteration counter 


ITER • 0 

Set GUES$(3) to real-time SWH estimate 
GUESS(3) ■ WLEV2(21 ) / 0.6 
Minimum sum of the squared errors 
SQMIN • 1.0E+06 

Working sum of the squared errors 
SERSC * SQMIN 
Output parar^vtrs 
IER - -10 

WLEV2(227) - -8888.0 
WLEV2(228) • -8888.0 
WLEV2(229) > IER 
WLEV2(230) - -8888.0 
WLEV2(231 ) • -8888.0 
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WL E V2 ( 2 32 ) • -8888.0 
MLEV2(233) - -8888.0 
ytfY2(234) - -8888.0 
MLEV2(23S) • -8888.0 

Check that Input waveform sample values (YIN) are within allowed 
limit* (return with no further SUN work If not within Units)* end 
sm input weighting factors for normalization 
WTI - 0.0 
DO SO 1 - N10,NUP 
HTI - MTI ♦ MTY(I) 

YI - YIH(I) 

Expected non Inal range of SEASAT wavefom samples 
IF (YI.LT.-25.0 .OR. YI.GT.500.0) SO TO 20 
SO CONTINUE 

DO 100 I - NLO.NUP 
100 WT(I) • MTY(I) / MTI 

Set Initial fit parameter estimates equal to 6U£SS(7) which provides 
Initial estimates of parameters not being fitted as well as those 
being fitted. GUES$(7) has been previously defined In COIMON /SSfMN/. 
DO 105 I • 1,7 
105 A(I) - GUESS(I) 

Set the Inverse- variance constraints to be added to the on-diagonal 
Urns below at Step #8. CNSTR(. ), which are the a priori estimates 
of the fit parameter standard deviations, limit the step size of the 
parameter changes In the fitting Iteration and have been previously 
defined In COMMON /SSM4N/. Test to avoid and Input standard devia- 
tion estimates less than 0.033. JORDR Is the fitting order of the 
fit parameters. AKEEP always contains the best fit parameters before 
th* current Iteration. NA Is the number of parameters used in the 
estimation process. (JORDR, AKEEP, and NA have all been previously 
defined In C0W10N /SSM4N/ . ) 

IJK • 0 

DO 107 II - 1 ,NA 
I * JORDR(II) 

YI ■ CN$TR(I)**2 
IF (YI .IT. 0.001) YI • 0.001 
CNSTI(I) • 1.0 / YI 
107 AKEEP(I) - A(I) 
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5. FILLV gets the 63 modeled waveform samples from the FFT-convolutlon 
program. These are In ascending order In the Independent variable 

60 CALL FILLV (VAL) 

IER - 1 

Compute residuals by subtracting the modeled waveform from the actual 
waveform. Then compute the sum of the weighted squares of the 
residuals. 

EOLD = 0.0 
DO 109 I * NLO.NUP 
YI = YIN(I) - VAL(I) 

109 EOLO - EOLD + YI*YI*WT(I) 

SQM IN * EOLD 

6. Iteration restart (each iteration is restarted at this point). Zero 
upper part* symmetric matrix 

110 CONTINUE 

DO 200 I = 1 ,NA 
DO 150 0 = 1,1 
150 XMAT(J.I) * 0.0 
200 BCOLM(I) = 0.0 

Limit the size of the correction in the parameter space by use of a 
fractional multiplier on the first three iterations. This method of 
preventing divergence may not be acceptable in the context of realtime 
processing. 

XFRCT - 1 .0 

IF (ITER .LT. 4) XFRCT = (1.0+ FLOAT (ITER)) / 5.0 
ELIM = ERLIM * XFRCT 
SERSQ = 0.0 

7. FILLD sets up the (63,7) derivative array (DRV) by making steps in the 
values of the parameters A(7); the step sizes taken are carried by 
STPB1(7), and the order of the derivatives in DRV (63, 7) is set by 
JORDR. The order of STPf»! Is the same as A. FILLV must have been 
called before FILLD; the held value in VAL(63) from the call to FILLV 
is used In filling DRV(63,7). Incldently, the numerical derivative 

is not taken in case of the amplitude and baseline, so the values set 
in STPRM(l) ana STPRM(4) are irrelevant 
CALL FILLD (VAL,DRV,STPRM) 

"DO 300" loop fills upper half of the symmetric matrix, also the 
column vector (see Hayne, general discussion) 

DO 300 JP * NLO.NUP 


WTI = WT(JP) 

DY - YIN(JP) - VAL(JP) 

DO 250 JA • 1 ,NA 
PVECT(JA) » DRV(JP.JA) 

250 CONTINUE 

DO 300 I * 1 ,NA 
YI = PVECT(I) * HTI 
DO 275 J * 1,1 

275 XMAT(J.I) - XMAT(J,I) ♦ YI * PVECT(J) 

300 BCOLM(I) * BCOLM(I) + YI * DY 

8. Add on-diagonal constraint elements to the symmetric matrix; these 
are from the a priori information on variation expected in the 
parameters to be fitted. The constraint Is the Inverse of the Input 
variance estimate, minimum allowed variance of 0.001 

DO 520 I = 1 ,NA 
JJ = JORDR(I) 

520 XHAT(I.I) = XMAT (1,1) + CNSTI(JJ) 

9. Symmetric matrix inversion (upper triangular portion only computed) 

CALL SYMINV (XMAT,NA,IFAIL,7,P$YM,QSYM,MSYM) 

IF (IFAIL .NE. 0) GO TO 1000 
DO 660 I = 1 ,NA 
II = JORDR(I) 

Compute correction in the parameter space before fractional multiplier 
ACLM = 0.0 
DO 620 J = 1,NA 
IF (J .LT. I) GO TO 600 
ACLM = ACLM + XMAT(I,J)*BC0LM(J) 

GO TO 620 

600 ACLM = ACLM + XMAT(.J,I)*BC0LM(J) 

620 CONTINUE 

The II = 6 parameter is pointing angle; following treatment is ad hoc 
and specific to SEASAT-1 case 
IF (II .NE. 6) GO TO 640 
IF (ABS(A(6)> .LT. 0.025) ACLM = ACLM / 5.0 
A(6) = A(6) + XFRCT*ACLM 

IF (A(6).LT.-4.0 .OR. A(6).GT.4.0) A(6) « A(6) / 10.0 
GO TO 660 

640 A(II) = A(II) + XFRCT*ACLM 
660 CONTINUE 
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The following avoids negative rise time 

IF (A(3) .LT. 1.0E-06) A(3) ■ 1.0E-06 

10. Recalculate values of the sampled waveform function for the new, up- 
dated estimates of the parameters A(7) and recalculate the sum of the 
weighted squared errors 

700 CALL FILLV (VAL) 

SERSQ * 0.0 
DO 775 I « NLO.NUP 
YI « YIN(I) - VAL(I) 

775 SERSQ = SERSQ + YI*YI*WT(I) 

ITER * ITER + 1 

11. Check that we keep coefficients producing minimum sum squared errors 
but do not retain solution If sum was not smaller 

IF (SERSQ .GE. SQMIN) GO TO 785 
DO 780 I = 1,NA 
DO 779 J = 1,1 

779 XKEEP(J.I) * XKAT(J.I) 

II = OOROR(I) 

780 AKEEP(II) = A( II) 

SQMIN = SERSQ 

785 CONTINUE 

12. Check to see If more Iterations are required. Do not try for absurdly 
small residuals about fit (4.4E-05 Is an empirically derived SEASAT 
constant) 

IF (SERSQ .LT. 4.4E-05) GO TO 3000 
Do not exceed iteration limit 

IF (ITER .GE. LIMIT) GO TO 2500 
Do not allow errors to increase 

IF (SERSQ .GT. EOLD) GO TO 800 
Check for fractional error convergence 

IF ( ( EOLD-SERSQ ) /EOLD .LE. ELIM) GO TO 3000 
Best solution has not been obtained, try again 

790 EOLD = SERSQ 
GO TO 110 

13. Check the fractional change in the sum of the squared errors; value 
less than 0.0099 Is an Individual waveform sample standard deviation 
of about 0.015, which is assumed to be an adequate lower limit to 
the SEASAT situation when using only last 45 waveform samples. For 
the SEASAT waveform case, check if the sum of the squared errors 
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has Increased; don't make error exit If (fractional) Increase Is 
less than 10 times limits. 

800 IF (SERSQ .LE. 0.0099) GO TO 3000 

IF ( ABS ( ( SERSQ-EOL D ) /EOt D ) .LE. 10.0*ERLIM) GO TO 190 

14. Sum errors **2 Increased 

IER • -1 
GO TO 2500 

15. Matrix Inversion failure (singular matrix) 

1000 IER - -2 
GO TO 2500 

16. Iteration count exceeded. From SEASAT experience. If ITER > 2, 
figure that some sort of solution exists, so set IER * 1 and retrieve 
the minimum value producing set of A(.) and the resulting XMAT(.,.) 
values If necessary 

2500 IF (ITER .LE. 2) GO TO 4500 
IER * 1 

IF (SERSQ .LT. SQMIN) GO TO 3000 
00 2510 1=1 ,NA 
DO 2505 J - 1,1 

2505 XMAT(J.I) * XKEEP(J.I) 

II = JORDR(I) 

2510 A( I I ) - AKEEP(II) 

SERSQ « SQMIN 

3000 CONTINUE 

17. Use values from XMAT (at last Iteration and after Inversion) to find 
correlations which will then be set into array C0RRL(21) In order: 

2,1 3,1 3,2 4,1 4,2 4,3 etc. Note that first the square roots of 
diagonal elements will be taken, for convenience. Also note that 
order In this correlation array Is in terms of the order In which 
the parameters were fitted, not the order In which they are in A(.) 

DO 300 1 I ■ 1 ,NA 

3001 CORRL(I) - 0.0 
IJ - 0 

DO 3005 J * 2,NA 
JM » J - 1 
DO 3005 I - 1 , JM 
IJ » IJ + 1 

CORRL(IJ) • XMAT(I.J) / (XMAT(I ,I)*XMAT(J,J) ) 

3005 CONTINUE 
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The following statement Is reached when llneflt converged , produced 
parameter estimates 
3010 CONTINUE 

18. Check llneflt parameters against edit limits, signal by ICR > 1 

DO 3012 II ■ 1 ,NA 
I • JORDR(II) 

YI « Y(I) 

3012 IF <YI.LT.AEDIT(1,I) .OR. YI.6T.AEDIT(2,I)) SOTO 4000 
GO TO 4500 
4000 IER ■ 1 + I 

19. Store final output estimates In COMMON /GEQPHY/ 

4500 WLEV2(227) - SQRT(SERSQ/(NUP-NLO) 

WLEV2(228) « A(7) 

WLE V2 (229 ) * IER 
MLEV2(230) » A(3) * 0.6 
WLEV2(231) - A(6) 

WLEV2 ( 232) - A(5) 

WLEV2 (233) « A(l) 

WLE V2 (234 ) - A(2) * 0.149896 
WtEV2(235) » A(4) 

20. End of algorithm 

RETURN 

CORCNTS: 1. The following TYPE statements must be included in the code of this 

submodule: 

DIMENSION YIN(63),WTY(63),XMAT(7,7)BC0LM(7),PVECT(7) 

DIMENSION WT(63),PSYM(7)»Q5YM(7),MSYM(7),CNSTI(7) 

DIMENSION AKEEP(7),XKEEP(7,7),VAL(63),DRV(63,7),STPRM(7) 

DATA STPRM /l. 0,0.25, 0.2,1. 0,0.05,0.005, 0.05/ 

COMMON /SYSTM/ SYS(514) ,NSYS,NSCTR,SMSYS 
COMMON /SSM4N/ A(7),XCNST(7),NA,ITER,SERSQ, 

S C0RRL(21 ),GUESS(7),CNSTR(7),JOROR(7),AEDIT(2,7) 

COMMON /6E0PHY/ WLEV2(235) 

EQUIVALENCE (HLEV2(101 ),YIN(1 )) 
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DERIVATIVE SUBMODULE 


A.A-2. 3.1.1 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE FILLD 

To fill an array DRV{63,7) containing 63 sample values of up to 7 deriva- 
tives. The order of the derivative terms In DRV Is set by J0RDR(7). 

FILLD Is a companion to FILLV (A.A-2.3.1 . 1 ) ; It requires that FILLV has 
been called already. 

Hayne, G. S.» "Radar Altimeter Waveform Modeled Parameter Recovery," 

NASA TM-73294, April 1981 

A.A-2.3.1 SWHFIT waveform processor driver submodule 
A.A-2.3.1. 1.1 FILLV convolution submodule 
CALL FILLD (VAL,DRV,STPRM) 

VAL * modeled waveform 

STPRM * step size of the fit parameters 

DRV * partial derivatives of the modeled waveform with respect to the 
fit parameters 

None # l 

1. Loop to 400 for the NA derlvates needed 

DO 400 K - 1 ,NA 
J - JORDR(K) 

GO TO (2,4,4, 3,4,4, 4), J 

2. Amplitude derivative 

TMP - AMPLI 

IF (TMP .LT. 1.0E-05) TMP ■ 1.0E-05 
DO 110 I * 1,63 

110 DRV(I.K) = (VAL(I)-BSLIN) / TMP 
GO TO 5 

3. Baseline derivative 

DO 210 I - 1,63 
210 DRV(I.K) » 1.0 
GO TO 5 

4. Numerical derivative for all except amplitude and baseline 

ATMP = A(J) 

STEP * STPRM(J) 

A(U) « A(J) + STEP 

Compute new estimates for the Jth parameter 
CALL FILLV (TMP) 

DO 320 I « 1 ,63 
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320 DRV(I.K) - (TMP(I)-VAL(I)} / STEP 
A(J) ■ ATHP 

5. End of loop 

400 CONTINUE 

6. End of algorithm 

RETURN 

COMMENTS : 1. The following TYPE statements must be Included In the code of this 

submodule: 

DIMENSION VAL(63),DRV(63.7).$TPRM(7),TMP(63) 

COMMON /SSM4N/ A ( 7 ) , XCNST ( 7 ) ,NA, ITER , SERSQ 
$ CORRL(21),GUESS(7),CNSTR(7),OORDR(7),AEDIT(2»7) 

EQUIVALENCE (AMPLI,A(1 )) . (BSLIN.A(4)) 


CONVOLUTION SUBMODULE A. A-2.3.1. 1.1 

TITLE: SUBROUTINE FILLV 

FUNCTION: To evaluate waveforms using FFT techniques to perform convolution of: 

1) system point target response, 2) sea surface elevation distribution, 
and 3) flat sea response. This submodule Is set up for a 512-point trans- 
form and uses FFT submodules FFA and FFS and their associated submodules. 
REFERENCE: Hayne, G. S., "Radar Altimeter Waveform Modeled Parameter Recovery," 

NASA TM-73294, April 1981 

CONTROL: A. A-2.3.1 SWHFIT waveform processor driver submodule 

A.A-2.3.1.1 FILLD derivative submodule 

SUPPORT: A. A-2.3.1. 1.1.1 GTFSR flat sea response submodule 

A. A-2.3.1. 1.1. 2 GTSEA surface elevation distribution submodule 
A. A-2.3.1. 1.1. 3 FFA fast Fourier transform submodule 

A. A-2.3.1. 1.1. 4 FFS fast Fourier synthesizing submodule 

ACCESS: CALL FILLV (VAL) 

INPUTS: None 

OUTPUTS: VAL * modeled waveform 

TABLES: None 

ALGORITHM: 1. Initialization 

IF (II ST .NE. 0) GO TO 3 
I1ST » 1 

2. Transform the system impulse response, SYS, which has been previously 
defined In COMMON /SYSTEM/ 

CALL FFA (SYS.NNP) 
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3. Set up the sea surface elevation distribution and perform transform, 
replacing the Input distribution 

CALL GTSEA (NNP,SEA,SMSEA) 

CALL FFA (SEA.NNP) 

4. Set up flat sea response and perform transform, replacing the Input 
distribution 

CALL GTFSR (NNP.FSR.SMFSR) 

CALL FFA (FSR.HNP) 

5. Form amplitude normalization ANORM, then set up phase multiplier 
delta factor DPHI. XNCTR Is Included as a possible time bias to be 
defined at a later date. 

XNCTR ■ 0.0 
PHI » 0.0 

The constant 1.5625 Is the SEASAT 1/2 waveform sample Interval 
DPHI « -( ( XNCTR-24. 5-FLOAT (NSCTR)) + TIMO/1 . 5625)* 

$ 6 . 2831 853/ FLOAT ( NNP ) 

SMSYS Is the sum of the system Impulse response and has been set 
previously In COMMON /SYSTEM/ 

ANORM - 1.0 / (SMSYS*SMSEA) 

CTRES(l) « CMPLX(ANORM.O.O) * CTSYS(l) * CTSEA(l) * CTFSR(l) 

DO 500 I - 2.NC2 
PHI - PHI + DPHI 

CPHAS - CMPLX(ANORM*COS(PHI),ANORM*SIN(PHI)) 

500 CTRES(I) - CPHAS * CTSYSU) * CTSEA(I) * CTFSR(I) 

6. Inverse transform to get final convolution result (RES and CTRES are 
equlvalenced) 

CALL FFS (RES, NNP) 

IF (ABS(BSLIN) .LE. AMPLI*0.1E-05) GO TO 7 
DO 530 I « 1 ,NNP 
Add the baseline back In 
530 RES(I) » RES(I) + BSLIN 

7. Transfer data to final output array (512 array Is at SEASAT 1/2 wave- 
form sample spacing; therefore pick every other one). Output waveform 
sample #1 matches resulting waveform estimate #1 by the selection of 
DPHI. 

DO 610 I - 1,29 
J » I + I 

VALO+34) - RES(J+61) 

610 VAL(I) » RES(J-l) 
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COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCES: 


CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


00 620 I - 30,34 
620 VAL(I) - RES (1+28) 

8. End of algorithm 
RETURN 

I. The following TYPE statements must be included In the code of this 
submodule: 

DIMENSION VAL(63),SEA(514),FSR(514),RES(S14) 

COMPLEX CTSYS( 257 ) , CTSEA(257 ) ,CTFSR( 257 ) , CTRES( 257 ) .CPHAS 
COMMON /SYSTM/ SYS(514),NSY$,NSCTR,SMSYS 
COMMON /SSM4N/ A(7),XCNST(7) ,NA,ITER,SERSQ, 

$ CORRL(21),GUESS(7).CNSTR(7),JOROR(7),AEDIT(2,7) 

DATA II ST/O/ , NNP/512/ , NP2/514/ , NC2/257/ 

EQUIVALENCE (SYS(1 ),CTSYS(1 )) , SEA(1 ),CTSEA(1)) 

EQUIVALENCE (FSR(1 ),CTFSR(1 )) , (RES(l).CTRES(l)) 

EQUIVALENCE (A(l).AMPLI) , (A(2\ T IM0) , (A(3), SIGMA) 
EQUIVALENCE (A(4),BSLIN) , (A(5),XLM0A) , (A(6),XIDEG) 
EQUIVALENCE (A(7),XKURT) 


FLAT SEA RESPONSE SUBMODULE A.A-2 . 3 . 1 . 1 . 1 . 1 


SUBROUTINE GTFSR 

To determine the flat sea response using I Q term only from Brown's expan- 
sion (see references). A power series from Abramowltz and Stegun Is usee 
to evaluate I Q . This version of 6TFSR uses 230 non-zero values of the 
flat sea response and assumes that NNP>231. 

Hayne, G. S., "Radar Altimeter Waveform Modeled Parameter Recovery," 

NASA TM- 73294, April 1981. 

Brown, G. S. , "The Average Impulse Response of a Rough Surface and 
Its Applications," IEEE Trans. Antennas ana Propagation . Vol. AP-25, 

No. 1, January 1977. 

Abramowltz, A. and Stegun, I. A., NBS Handbook of Mathematical Functions , 
Dover Books, 1972. 

A.A-2.3.1,1.1 FILLV convolution submodule 
None 

CALL GTFSR (NNP, FSR, SMFSR) 

NNP » number of points In the flat sea response array (at least 2 
less than the dimension of FSR) 
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OUTPUTS: 


TABLES: 

ALGORITHM: 


FSR * flat s«a response array 

SMFSR * flat sea response normalization sum 

None 

1. Initialization (NSPR - 320 Is SEASAT specific and related to using a 
512 point transform). 

NSFR - 230 
SMFSR - 0.0 

SEASAT 1/2 waveform sample Interval 
DT - 1.5625 
T - -DT/2.0 

2. Test for (Impossible) negative angle; If present choose branch which 
effectively Increases the DLTA at < zero degrees pointing 

IF (XIDEG ,GT. 0.0) GO TO 3 

Brown's equation do not allow for negative angle. Therefore approxi- 
mate extrapolation by exponental. The following statement causes 
DLTA to Increase by a factor of two for one degree (fictitious) na- 
tive angle. 

DLTA * 2.66496E-03 * (1.0-XIDEG) 

DO 15 J - l.NFSR 
T ■ T + DT 

Z « AMPLI * EXP(-DLTA*T) 

FSR(J) « Z 

15 SMFSR - SMFSR + Z 
GO TO 4 

3. Fill In surface response by proper power series for I Q (Z). The 
constants used In the calculation of BETA and DLTA (see Hayne, equa- 
tions 19, 20, and 22) are SEASAT related and dependent upon beam 
width and altitude. 

X2RAD - XIDEG / 28.64789 
BETA » 4.35331 * SIN(X2RAD) 

DLTA - 2.66496E-03 * C0S(X2RAD) 

DO 30 J • 1 ,NFSR 
T - T + DT 
Z - BETA * SQRT(T) 

Select which of two series to use for I Q (Z) from Abramowltz and 
Stegun 

IF (Z .GT. 3.75) GO TO 23 
Z - Z * Z / 14.0625 

A • 1.0 ♦ Z* ( 3 . 51 5623*Z*( 3 .089942+Z* ( 1 . 206749 
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COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 


$ +Z* ( 0 . 2659732+Z* {0 . 0360768+2*0 . 004581 3 ) ) ) ) ) 

GO TO 27 

23 A - EXP(Z) / SQRT(Z) 

Z - 3.75 / Z 

A - Z*(0.3989423-Z*(0.03988024+Z*(0. 00362018 
$ -Z*{0. 00163801 -Z*(0. 01031 555-Z*(0.02282967-Z*(0. 02895312 
S -Z*(0.01787654-Z*(0.00420059)))))))) 

27 Z - AMPLI * EXP{-OLTA*T) * A 
FSR(J) - Z 

30 SMSFR ■ SMSFR + Z 

4. Fill rest of the array with zeroes 

K • NFSR + 1 
NP2 ■ NNP + 2 
DO 40 J > K.NP2 
40 FSR(J) - 0.0 
I1ST - 1 

5. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule: 

DIMENSION FSR(2) 

COMMON /SSM4N/ A(7),XCNST(7),NA.ITER,SERSQ, 

$ C0RRL(21 ),GUESS(7),CNSTR(7),J0RDR(7),AEDIT(2,7) 

EQUIVALENCE (A(l).AMPLI) . (A(2).TIMD0) , (A(3) .SIGMA) 
EQUIVALENCE (A(4),BSLIN) , (A(5),XLM0A) . (A(6),XIDEG) 
EQUIVALENCE (A(7),XKURT) 


SURFACE ELEVATION DISTRIBUTION SUBMODULE A.A-2.3.1 .1 .1 .2 

SUBROUTINE GTSEA 

To fill array with a skewed Gaussian surface elevation distribution 
centered on the sample number 86. Zeroes entered In all other elements 
than In Interval 1 - 171. Assumes NNP > 171. It Is Intended for use 
In the 512-point FFT processes. 

Hayne. G. S., "Radar Altimeter Waveform Modeled Parameter Recovery, “ 

NASA TM- 73294, April 196i. 

A.A-2.3.1. 1.1 FILLV convolution submodule 
None 
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ACCESS: 

INPUTS: 


CALL GTSEA (NNP, SEA, SMSEA) 

MNP ■ number of points In tht surface alevatlon distribution array 

(at least 2 lass than the dimension of SEA) 

OUTPUTS: SEA ■ surface elevation distribution array 

SMSEA - surface elevation distribution normalization sum 
TABLES: None 

ALGORITHM: 1. Convert sea sigma to f gate Intervals (zero width Is not allowed). 

The constant 1.5625 Is the SEASAT 1/2 waveform sample Interval. 
XNGTS - SIGMA / 1 .5625 
IF (XNGTS .LT. 0.001) XNGTS - 0.001 
WGTS - 0.0 

2. Establish center at 86th gate 

NCTR • 86 
SEA(NCTR) - 1.0 
SMSEA - 1 .0 
K ■ NCTR - 1 
X6 - XLMOA / 6.0 
XNDX > 0.0 

3. Fill non-zero elements of the array 

DO 20 J - 1,K 
XNDX - XNDX 4- 1.0 
WGTS - XNDX / XNGTS 
Z - -WGTS * WGTS / 2.0 
IF (Z .LT. -80.0) GO TO 10 
A - EXP(Z) 

Z » X6 * WGTS * (WGTS*WGTS-3.0) 

A1 ■ A * (1.0-Z) 

A2 - A * (1.0*Z) 

GO TO 15 
10 A1 » 0.0 
A2 - 0.0 

15 SEA (NCTR- J) • A1 
SEA(NCTR+J) ■ A2 
20 SMSEA - SMSEA ♦ A1 ♦ A2 

4. Fill zero elements of the array 

K » 2 * NCTR 
NP2 ■ NNP ♦ 2 
DO 25 J - K.MP2 
25 SEA(J) - 0.0 
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COMMENTS: 



5. End of algorithm 
RETURN 

1. Tht following TYRE statements mutt bo Included In the code of 
this submodulo: 

DIMENSION SEA(2) 

COMMON /SSM4N/ A(7),XCNST(7),NA,ITER,SERSQ,CORRL(21) 

$ GU£SS(7),CNSTR(7),JORDR(7).A£DIT{2.7) 

EQUIVALENCE (A(1),AMPLI) , (A(2),TIM0) , (A( 3), SIGMA) 
EQUIVALENCE (A(4),BSLIN) , (A(5),XLM0A) , (A(«),XIDEG) 
EQUIVALENCE (A(7),XKURT) 


FAST FOURIER TRANSFORM SUBMODULE A.A-2.3.1.1.1 .3 


TITLE: SUBROUTINE FFA 

FUNCTION: To roploce the reel vector B(K), (K>1,2,...,N), with Its finite discrete 

Fourier transform. The DC term Is returned In location B(l) with B(2) 
set to 0. Thereafter, the J-TH harmonic Is returned as a complex number 
stored as B(2*J+1) + 1 B(2*J+2). Note that the N/2 harmonic Is returned 
In B(N+1) with B(N+2) set to 0. Hence, B must be dimensioned to size 
N+2. The subroutine Is called as FFA (B,N) where N ■ 2M and B Is an N 
term real array (for SEASAT, M ■ 9). A real-valued, radix 8 algorithm 
Is used with In-place reordering and the trig functions are computed as 
needed. 

REFERENCE: "Program for Digital Signal Processing," ed. by Digital Signal 

Processing Comalttee of the IEEE ASSP, Published by IEEE Press, 

Noveefcer 1979. 

CONTROL: A.A-2.3.1.1.1 FILLV convolution submodule 

SUPPORT: FFA-FFS package (see COWCNTS) 

j ACCESS: Call FFA (B.NFFT) 

INPUTS: B "the real vector to be transformed 

NFFT ■ the dimension of the B vector 

OUTPUTS: B ■ the finite discrete Fourier transform of the Input vector 

TABUS: None 

ALGORITHM: See above reference 

COMMENTS: 1. The submodule Is one of the set of routines for fast Fourier trans- 

form of real data sequences as described In the above reference. 
These routines are collectively the "FFA-FFS package" which Includes: 
FFA, FFS, R2TR, R4TR, R8TR, R4SYN, R8SYN, 0RD1 and 0RD2. 
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FAST FOURIER SYNTHESIZING SUBMODULE 


A.A-2.3.1. 1,1.4 


TITLE: 

FUNCTION: 


REFERENCE: 


CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 

OUTPUT: 

TABLES: 

ALGORITHM: 

COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


SUBROUTINE FFS 

To synthesize the reel vector B(K), where K*1,2,...,N. The Initial 
Fourier coefficients are placed In the B array of size N+2. The OC tens 
Is In B(1) with B(2) equal to 0. The J-TH hanaonlc Is stored as 
B(2M+1) ♦ 1 B(2*«H2). The N/2 hanaonlc Is In B(IH-I) with B(N+2) equal 
to 0. The subroutine Is called as FFS (B,N) where N • 2M (for SEASAT, 

M « 9) and B Is the N tens real array discussed above. 

"Programs for Digital Signal Processing,” ed. by Digital Signal 
Processing Coemlttee of the IKE ASSP, published by IEEE press, 

November 1979. 

A.A-2.3.1. 1.1 FILLV convolution submodule 
FFA-FFS package (see COMMENTS) 

CALL FFS (B.NFFT) 

6 -the Fourier coefficients 
NFFT ■ the dimension of B vector 
B ■ the real vector 
None 

See above reference 

1. The submodule Is (me of the set of routines for fast Fourier trans- 
form of real data sequences as described In the above reference. 
These routines are collectively the "FFA-FFS package” which Includes: 
FFA, FFS. R2TR. R4TR, R8TR, R4SYN, R8SYN, 0RD1, and 0RD2. 


MATRIX INVERSION SUBMODULE A.A-2.3.1.2 

SUBROUTINE SYMINV 

To compute the Inverse of a symmetric matrix 

A.A-2.3.1 SHHFIT waveform processor driver submodule 
None 

CALL SYMINV (A.N.IFAIL.NRON.P.Q.M) 

A ■ symmetric matrix to be Inverted 

N " order of the matrix to be Inverted 

NROW > row dimension of A 
P ■ dummy vector of dimension N 
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OUTPUTS: 


TABLES: 

ALGORITHM : 


Q * dunwy vector of dimension N 

H ■ dummy vector of dimension N 

A " inverted matrix 

IFAIL * 0 for successful inversion 

* 1 for unsuccessful inversion 

None 

1. Initialization 
IFAIL * 0 
DO 10 I s 1,N 
10 M(I) = 1 
Search for pivot 

DO 140 I = 1 ,N 
BIG = 0.0 
DO 40 J = 1 ,N 
TEST = ABS(A(0,J) ) 

IF (TEST-BIG) 40,40,20 
20 IF (M(0>) 150,40,30 
30 BIG = TEST 
K = J 

40 CONTINUE 

3. Preparation for elimination step 
M(K) = 0 

Q(K) = 1.0 / A(K,K) 

P(K) = 1.0 
A(K.K) = 0.0 
KP1 = K + 1 
KM1 = K - 1 
IF (KM1) 150,80,50 
50 DO 70 J = 1 ,KM1 
P(0) = A(J,K) 

Q(0) = A(J,K) * Q(K) 

IF (M(J) ) 150,70,60 
60 Q(J) = -Q(J) 

70 A(J,K) = 0.0 
80 IF(K-N) 90,130,150 
90 DO 120 J = KP1 ,N 
P(0) = A(K,J) 

IF (M(0)) 150,100,110 
100 P(J) = -P(J) 
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COMMENTS : 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


no q(j) - -a(k,j) * q(K) 

120 A(K,J) « 0.0 

4. Elimination proper 

130 DO 140 J * 1,N 
00 140 K « J,N 

140 A(J,K) « A(J.K) + P{J)*q(.K) 

GO TO 6 

5. Error exit 

150 IFAIL » 1 

6. End of algorithm 

RETURN 

1. The following TYPE statement must be Included In the code of this 
submodule: 

DIMENSION A(NR0W,1 ),P(1),q(l ),M(1) 

2. This submodule uses only the upper triangular portion of A as Input 
and returns only the upper triangular portion of the matrix Inverse. 


WAVEFORM ALTITUDE CORRECTION A.A-2.3.2 


SUBROUTINE WAVALT 

To compute the altitude correction for attitude, SWH, and h when the wave- 
form processor falls to converge. This module Is used only as a backup to 
the waveform processor and Is not called when convergence Is achieved by 
the waveform processor. The inputs to the module are the spacecraft esti- 
mate of attitude and the real-time SWH and the software estimate of h. 

The output is the altitude correction for attitude, SWH, and h. 

"Seasat Algorithm Development Facility Altimeter Sensor Algorithm Specifi- 
cation," Jet Propulsion Laboratory, PD 622-202, Revision A, March 1980. 

A. A- 2. 3 WAVFRM waveform module 
None 


CALL WAVALT 
WLEV2 (1 2) * 

WLEV2(21 ) = 

WLEV2(236) * 
WLEV2(229) - 
ISTAT(9) 
WLEV2(238) = 
WLE V2 ( 240) « 


attitude in (deg, 0.01) 
significant wave height in (m,0.01) 
height acceleration In (m/s ,0.01) 
waveform processor flag 
track-mode flag 

height correction for attitude, SWH, and h in (m, 0.001) 
standard deviation of 6h 0 c In (m, 0.001) 

fc ,0 
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TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 

COMMENTS: 


A table of sea states and attitudes. 

Whenever the waveform processor does not converge: 

(1) Compute the altitude correction for attitude and SWH by table lookup. 

*• 

(2) Compute altitude correction for h. 

(3) Output the total correction and Its standard deviation. 

1. This Is only a functional description. At a later date It will be 
defined or deleted If not needed to backup the waveform parameter 
recovery. 


WAVEFORM SWH CORRECTION A.A-2.3.3 


SUBROUTINE SWHCOR 

To compute the SWH correction for attitude and SWH when the waveform 
processor falls to converge. This module is used only as a backup to the 
waveform processor and is not called when convergence Is achieved by the 
waveform processor. The Inputs to the module are the spacecraft estimate 
of attitude and the real-time SWH. The output is the SWH correction for 
attitude and SWH. 

"SEASAT Algorithm Development Facility Altimeter Sensor Algorithm 
Specifications," Oet Propulsion Laboratory, PD 622-202, Revision A. 
A.A-2.3 WAVFRM waveform module 


None 

CALL SWHCOR 

WLEV202) - attitude In (deg.0.01) 

WLEV2 (21 ) * significant wave height In (m,0.01) 

WLEV2(229) * waveform processor convergence flag 
WLEV2(237) « SWH correction for attitude and SWH In (m, 0.001) 

A table consisting of two entries for each of 16 attitudes and 20 sea 
states (640 entries). 

If the waveform processor did not converge, this module will compute the 
SWH correction for attitude and SWH by table lookup. 

1. This Is only a functional description. At a later date this module 
will be defined or deleted If not needed as a backup. 
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WAVEFORM SWH CAL ZONE BIAS 


A.A-2.3.4 


TITLE: SUBROUTINE SWHBIAS 

FUNCTION: To calculate the SM cal tone bias. The correction will be based on com- 

parisons of the calculated SWH with ground-truth measurements from buoys 
and aircraft and will therefore be computed after launch. The Input to the 
module will be Julian date and the output will be the SWH cal bias. 

REFERENCE: "SEASAT Algorithm Development Facility Altimeter Sensor Algorithm Specifi- 

cations," Jet Propulsion Laboratory, PD-622-202, Revision A. 

CONTROL: A.A-2.3 WAVFRM waveform module 

SUPPORT: None 

ACCESS: CALL SWHBIAS 

INPUTS: WLEV2 (15) - classification flag 

WLEV2(5) ■ time as Julian date In (days, 1 xlO" 8 ) 

WLEV2(21) * significant v,a.<j height (m,0.01) 

OUTPUTS: WLEV2(241) - SWH cal zone bias in (m.0.001) 

TABLES: A table of &SWH as a function of SWH (not presently available). There will 

be a maximum of 20 table entries of SWH and ASWH for each of a maximum of 
five Tj D (100 total entries). 

ALGORITHM: For data over water a table lookup of SWH will be made. Linear Inter- 

polation and extrapolation may be used to calculate the output. 

COMMENTS: 1. This is only a functional description, 

2. The table will not be available until postlaunch Inflight data are 
compared and analyzed against ground-truth data. This table may be 
updated during the mission. 

WAVEFORM PRODUCTS SUBMODULE A.A-2.3. 5 

TITLE: SUBROUTINE WFPROD 

FUNCTION: To compute the upper ocean dynamics estimates of significant slope and 

dominant wavelength. 

REFERENCE: Huang, N. E., and S. R. Long, "A Study of the Wavehelght Probability 

Distribution ami Statistics of Wind Generated Waves," submitted for 
publication Journal of Fluid Mechanics . 

CONTROL: A.A-2.3 WAVFRM waveform module 

SUPPORT: None 

ACCESS: CALL WFPROD 
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INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS : 


TITLE: 

FUNCTION: 


REFERENCE: 


WLE V2 (230) 

m 

refined SWH estimate 

WLEV2(232) 

m 

skewness estimate 

WLEV2 (245 ) 

m 

significant slope 

WLEV2 ( 246 ) 

98 

dominant wavelength 

WLE V2 (247) 

■ 

dominant frequency 

WLEV2(248) 

■ 

dominant phase speed 

WLEV2 ( 249 ) 
None 

■ 

dominant wave number 


1. Compute the significant slope 

WLEV2(245) « WLEV2(232) / (8.0*PI) 

2. Compute the dominant wavelength 

WLEV2(.246) - WLEV2(230) / (4.0*WLEY2(245)) 

3. Compute the dominant frequency 

WLEV2(247) - $QRT(2.0*PI*G/WLEV2(246)) 

4. Compute the dominant phase speed 

WLEY2(248) - SQRT(G*WLEV2(246) / (2.0*PI)) 

5. Compute the dominant wave number 

WLEV2(249) * 2.0 * PI / VILEV2C246) 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be included In the code of this 
submodule: 

COMMON /GEOPHY/ WLEV2(325) 

DATA PI/3.14159265358979/ 

DATA G/9. 80621/ 


ATMOSPHERIC CORRECTIONS A.A-2.4 


SUBROUTINE ATMOS 

To calculate the atmospheric corrections to the spacecraft altitude and 
the radar backscatter coefficient. The module will also process data from 
the rain gate. The altitude correction from this module consists of the 
combined effects of Ionospheric refraction, wet and dry tropospheric 
refraction, and atmospheric pressure. The radar backscatter coefficient 
correction accounts for the effects of the atmosphere on return power, and 
the rain-gate processing detects the presence of rain at the subsatellite 
point. All Inputs and outputs are processed by submodules. 

Not applicable 
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CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


A.A-2,0 ALT2DR 
A.A-2.4.1 RAIN 
A.A-2.4. 2 BARTRO 
A.A-2.4. 3 IONO 
A. A- 2. 4. 4 DRYTRO 
A.A-2.4. 5 WETTRO 
A. A- 2. 4. 6 SIGCOR 
CALL ATMOS 
TBO 
TBD 


level 2 main driver 
rain estimate submodule 
barotroplc effects submodule 
Ionospheric refraction 
dry tropospheric refraction 
wet tropospheric refraction 
radar backscatter correction 


None 

Each submodule Is called In turn: 

(1) Rain gate (A.A-2.4.1) 

(2) Barotroplc effects (A.A-2.4. 2) 

(3) Ionospheric re fraction (A.A-2.4. 3) 

(4) Dry tropospheric refraction (A.A-2.4. 4) 

(5) Wet tropospheric refraction (A.A-2.4.5) 

(6) Sigma-naught correction (A.A-2.4. 6) 

1. This Is only a functional description. 


RAIN GATE 


A.A-2.4.1 


TITLE: 

SUBROUTINE RAIN 

FUNCTION: 

To provide nadir rain-rate estimates. In addition* two flags* Indicating 
the quantity and quality of the rainfall estimate, will be set to facili- 
tate processing of possible altitude rain-rate correction. 

REFERENCE: 

Walsh. E. J., 1 

"Altimeter Rain Detection," NASA TM-73791, July 1981. 

CONTROL: 

A.A-2.4 ATMOS 

atmospheric correction module 

SUPPORT: 

None 


ACCESS: 

CALL RAIN 


INPUTS: 

TBD 


OUTPUTS: 

WLEV2(251) » 

rain rate In (mm/hr,0.1) 


WLEV2 (252) - 

rain-rate quantity flag: 

1 for light (0 < R < 2) 

2 for mild (2 < R < 6) 

3 for medium (6 < R < TBD) 

4 for heavy (TBD < R) 
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TABLES: 

ALGORITHM: 

COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 


ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 
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WLEV2(253) > rain-rate estimate quality flag: 

0 for good 

1 for questionable 
TBD 

TBD 

1. This algorithm will be defined at a later date. 


BAROTRORIC EFFECTS 


A.A-2.4.2 


SUBROUTINE BARTRO 


To compute the altitude correction due to the effects of atmospheric 
pressure. 

"Seasat Geophysical Algorithm Specification," Jet Propulsion Laboratory 
PD622-226, December 1980. 

A.A-2.4 ATMOS atmospheric correction module 
None 


CALL BARTRO 
WLEV2(256) - 
ULE V2 ( 259 ) * 
WLEV2(260) - 
WLEV2( 261 ) = 


sea-surface atmospheric pressure (from FNOC) in (mb.0.1) 
FNOC data-present flag 

atmospheric pressure altitude correction In (m, 0.001) 
standard deviation of corrections In (m, 0.001) 


A table of monthly averages of atmospheric pressure, temperature, and 


vapor pressure for each 5 degrees of latitude (not presently available) 


The size of the table will be approximately 3 by 12 by 30. 

If the surface atmospheric pressure (P) Is not available from FNOC, the 
table will be linearly Interpolated for calculating P. 

P « WLEV2(256) 

WLEV2(260) * -0.009948 (P-1013.3) 

WLEV2(261 ) - 0 (for default) 

1. The detailed algorithm will be defined at a later date. 


IONOSPHERIC REFRACTION A.A-2.4.3 


SUBROUTINE IONO 

To compute the altitude correction necessitated by the effects of lono 
spheric refraction. 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 

COMMENTS: 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 


ALGORITHM: 


COMMENTS: 


Nesturczuk, G., "Ionospheric Propagation Correction Modeling for Satellite 
Altimeters;" NASA CR-156881, Contract NAS6-3075, November 1981. 

A.A-2.4. ATMOS atmospheric correction module 
None 


CALL IONO 
WLEV2 (5 ) 
HLEV2(7) 
WLEV2 ( 8 ) 

WLEV2 ( 267 ) 
WLEV2 ( 268) 
TBO 
TBO 


Q 

time expressed as Julian date In (d,lxlO ) 
latitude of subsatelllte point In (deg,0.001) 
longitude of the subsatelllte point In (deg,0.001) 
Ionospheric data file, A.D-2.82 
Ionospheric refraction altitude correction In (m, 0.001) 
standard deviation of 6h« 2 (m, 0.001) 


1. This algorithm will be defined at a later date. 


DRY TROPOSPHERIC REFRACTION A.A-2.4.4 


SUBROUTINE DRYTRO 


This module computes the altitude correction due to the effects of dry 
tropospheric refraction. 

"Seasat Geophysical Algorithm Specification," Jet Propulsion Laboratory, 
PD-622-226, December 1980. 

A.A-2.4 ATMOS atmospheric correction module 
None 


CALL DRYTRO 

WLEV2(256) * surface atmospheric pressure (from FNOC) In (mb,0.1) 
WLEV2(259) - FNOC data-present flag 

WLEV2(7) * spacecraft latitude (from ephemerls) In (deg, 0.001) 
WLEV2(269) ■ dry tropospheric refraction altitude correction In (m, 0.001) 
WLEV2(270) * standard deviation of 6h^ 3 In (m, 0.001) 

A table of monthly averages of atmospheric pressure, temperature, and 
vapor pressure for each 5 degrees of latitude (not presently available). 

The size of the table will be approximately 3 by 12 by 30. 

If the surface atmospheric pressure (P) Is not available from FNOC, a 


table will be linearly Interpolated for calculating P. 
WLEV2(269) ■ P(2. 277-0.011 COS *) x 10’ 3 
WLEV2 (270 ) - 0 (for default) 


1. This Is only a functional description. 
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WET TROPOSPHERIC REFRACTION A.A-2.4.5 

TITLE: SUBROUTINE WETTRO 

FUNCTION: This module computes the altitude correction due to the effects of Met 

tropospheric refraction. It uses either rain data, LAMMR level 2 data 
file or FNOC data. 

REFERENCE: "Seasat Geophysical Algorithm Specification," Jet Propulsion Laboratory, 

PD-622-226, December 1980. 

CONTROL: A.A-2.4 ATMOS atmospheric correction module 

SUPPORT: TBD 

ACCESS: CALL WETTRO 

INPUTS: WLEV2(5) - time 

WLEV2C7) ■ spacecraft latitude 

WLEV2C251) - rain rate 

WLEV2(252) * rain rate quality flag 

WLEV2(253) ■ rain rate quality flag 

WLEV2 (257 ) * FNOC sea surface water-vapor pressure (e) 

WLEV2(258) * FNOC sea surface atmospheric temperature (T) 

WLEV2(259) * FNOC data present flag 
LAMMR » level 2 data file A.D(L)-2.83 
OUTPUTS: WLEV2(271) * wet tropospheric refraction altitude correction 

WLEV2(272) * standard deviation of WLEV2(271) 

WLEV2(273) « LAMMR data quality flag 

TABLES: A table of monthly averages of temperature, and vapor pressure for each 

5 degrees of latitude (not presently available). 

ALGORITHM: 1. If rain data is of good quality then use It to compute WLEV2 (271 ) . 

2. If not use LAMM? data If available. 

3. If LAMMR not available then set e * WLEV2(257) or from the table if 
FNOC data not present, 

4. Assign standard deviation and LAMMR quality flag. 

COMMENTS: 1. This Is only a functional description. 


RADAR BACKSCATTER CORRECTION A.A-2.4.6 

TITLE: SUBROUTINE SIGCOR 

FUNCTION: To compute the atmospheric correction to sigma naught. The correction 

will be computed using rain data if It Indicates a rate greater than 
2 mm/hr, otherwise LAMM? data Is used. 
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REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 

COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 


ACCESS: 

INPUTS: 

OUTPUTS: 

TABLES: 

ALGORITHM: 


Goldhlrsh, J. and E. Walsh, “Precipitation Measurements from Space Using 
a Modified Seasat Type Radar Altimeter," JHU/APL S1R81U-022, May 1981. 

A. A-2.4 ATMOS atmospheric correction module 
TBO 

CALL SIGCOR 
WLEV2(5) 

WLE V2 (251 ) - 

WLE V2 ( 252 ) - 
WLEV2(253) - 

WLEV2(274) - 
None 

1. Compute correction using rain gate data If good quality or else 2. 

2. Process according to S.A. (S)-2.4 (Ref. 6). 

1. This Is only a functional specification. 


WIND SPEED AND RADAR BACKSCATTER COEFFICIENT DRIVER MODULE A.A-2.5 
SUBROUTINE WINDSIG 

To act as the driver module for the calculation of the wind speed and the 
radar backscatter coefficient 
Not applicable 

A. A- 2.0 ALT2DR level 2 driver module 

A.A-2.5.1 SIGZRO radar backscatter coefficient submodule 

A.A-2.5. 2 WIND wind speed submodule 

CALL WINDSIG 

None 

None 

None 

1. Determine the radar backscatter coefficient 

CALL SIGZRO 

2. Determine the wind speed (19i meters altitude) 

CALL WIND 

3. End of algorithm 

RETURN 




-8 

time expressed as Julian date In (d,1x10 ) 
rain rate from A.A-2.4.1 In (mm/hr,0.1) 
rain-rate quantity flag from A.A-2.4.1 
rain-rate quality flag from A.A-2.4.1 
LAMMR level 2 T g data file (A.D(L)-2.84) 
sigma-naught atmospheric correction In (dB,0.01) 
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RADAR BACKSCATTER COEFFICIENT SUBMODULE 


A.A-2.5.1 


i 


* 

i 


TITLE: SUBROUTINE SIGZRO 

FUNCTION: To estlnate the radar backscatter coefficient, which Is an Indication of 

the reflectance properties of the ocean surface. 

REFERENCE: "SEASAT Gulf of Alaska Workshop/ Vol. 1. JPL 622-101, April 1979 

CONTROL: A.A-2.5 WINDSIG wind speed and radar backscatter coefficient module 

SUPPORT: None 

ACCESS: CALL SIGZRO 

INPUTS: ALT2 • corrected altitude In (m.O.OOl) 

WLEV1 (9) • AGC In (dB.0.01) 

WLE V2 (231 ) > altimeter off nadir angle In (deg, 0.01) 

WLEV2(274) ■ radar backscatter coefficient atmospheric correction 
In (dB.0.01) 

AGC I ■ array of AGC attenuator values from Table 2.5.1-a 

CALK * array of cal attenuator values from Table 2.5.1-a 

ATT ■ array of attitude values from Table 2.5.1-b 

AL * array of attitude loss values from Table 2.5.1-b 

ALTLO ■ altitude lower limits In (m,1.0) 

ALTHI ■ altitude higher limits In (m,1.0) 

OUTPUTS: WLEV2(276) - radar backscatter coefficient In (dB.0.01) 

TABLES: Table 2.5.1-a Cal Attenuator and AGC (see Appendix B) 

Table 2.5.1-b Attitude Loss (see Appendix B) 

ALGORITHM: 1. Check Input values 

IF (ALT2.LT. ALTLO .OR. ALT2.GT. ALTHI) GO TO 6 
IF (WLEV1 (9).LT.O.O .OR. WLEV1 (9).GT.60.58) GO TO 6 
IF (M.EV2 (274 ) . LT-1 0. 0 .OR. WLEV2(274).GT.10.0) GO TO 6 
IF CWLEV2 (231 ).LT.0.0 .OR. WLEV2(231 ).GT.0.75) GO TO 6 

2. Determine cal attenuator value 

DMIN - 9999.0 

DO 100 I - 1,8 

TEST • ABS(AGCI ( I J-WLEV1 (9) ) 

IF (TEST .GT. DMIN) GO TO 3 
K ■ I 

100 DMIN - TEST 

3. Determine the proper attitude loss table entry Index 

DO 200 I • 2,16 
K2 • I 


J44 


COMMENTS: 


IF (And) .GT. HLCV2(231 ) ) GO TO 4 
200 CONTINUE 

4. Determine the Attitude lots 

K1 ■ K2 - 1 

FACT - (AL(K2)-AL(K1 )) / (ATT0C2)-ATT(IC1 ) ) 

ALOSS ■ AL(K1 ) ♦ FACT*(WLEV2(231 )-ATT(Kl )) 

5. Determine the radar backscatter coefficient 

CORR » 30.0 * AL0G10(SNGL(ALT2)/796440.0) 

NLEY2(276) • 38.33 • DMIN - CALK(K) ♦ ALOSS 
1 ♦ CORR + WLEV2(274) 

60 TO 8 

6. Input out of range - print warning message and all Input variables 

7. WLEV2(276) - -9999.0 

8. End of algorithm 

RETURN 

1. The following TYPE statements must be Included in the code of this 
submodule 

DOUBLE PRECISION ALT2 
COMMON /SENSOR/ WLEV1(300) 

COMMON /GEOPHY/ WLEV2(325) 

COMMON /ALTLIM/ ALTLO.ALTHI 
COMMON /T251A/ AGCI (8).CAIK(8) 

COMMON /T251B/ ATT(16),AL(16) 

EQUIVALENCE tALT2,WLEV2(9)) 

2. The original (SEASAT) algorithm used WLEV2(274) - 0. The NOSS 
algorithm determines WLEV2(274) In the radar backscatter coefficient 
atmospheric correction submodule (A.A-2.4.6) using date that are 
supplied by the LAMMR and the CZCS Instruments. 

3. The radar backscatter coefficient bias used In Step #5 (38.33 d8) 
was changed from the original (SEASAT) value of 39.93 dB on the 
recommendation of L. Fedor, based upon results of the SEASAT Gulf 
of Alaska Workshop (Ref. 7). 

4. The altimeter off-nadir angle, MLEV2(231), Is determined by the wave- 
form processor submodule (A.A-2.3.1) If that submodule converges. 

If not, the Instrument-computed value of the pointing angle Is used. 


us 


WIND SPEED SURMQOULE 


A.A-2.5.2 


TITLE: 

FUNCTION: 

REFERENCE: 


CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE MIND 

To calculate the wind speed at the subsatelllte pot it end altitudes of 
191 meters and 10 meters 

1. "SEASAT Geophysical Data Record Users Handbook, Altimeter," 

JPL 622-97 Rev. A, July 1980 

2. Private coamunlcatlon, L. Clarke (FNOC), November 1980 

A.A-2.5 MINDSIG wind speed and radar backscatter coefficient driver 
module 


None 

CALL WIND 
WLEV2(276) - 
A 
B 
C 

WLEV2(277 ) - 
WLEV2(278) - 
Table 2.5. 2-a 
Table 2.5.2-b 


radar backscatter coefficient In (dB,0.01) 
array of coefficients from Table 2. 5. 2-a 
array of coefficients from Table 2. 5. 2-a 
array of coefficients from Table 2.5.2-b 
wind speed at 10 meters In (m/s,0.1 ) 
wind speed at 191 meters In (m/s,0.1) 

Wind A and B Coefficients (see Appendix B) 
Wind Polynomial Coefficients (see Appendix B) 


1. Check Input values 

IF (WLEV2(276).LT.0.0 .OR. WLEV2(276).GT.15.0) GO TO 5 


2. Determine the proper table entry Index 
I ■ 1 


IF (WLEV2(276) .GT. 10.12) I ■ 2 
IF (WLEV2(276) .GT. 10.90) I • 3 

3. Determine the wind speed at 10 meters altitude 

X - -0.1 * (WLEV2(276)+2.1 ) 

Y - EXP( (10.0**X-S(I)) / A(I) ) 

IF (Y .GT. 16.0) WTEN - Y 
IF (Y .LE. 16.0) WTEN - C(1)*Y ♦ C(2)*Y**2 
1 ♦ C(3)*Y**3 + C(4)*Y**4 + C(5)*Y**5 
WLEV2(277) ■ WTEN 

4. Determine the wind speed at 191 meters altitude 

W1 - 0.66783E-02 * WTEN 

W2 ■ AL0G(1.0 / (1.38E-15*WTEN) ) 

WLEV2(278) - WTEN ♦ W1/W2 

GO TO 7 

5. Input out of range • print warning message and all Input variables 
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6. WLEV2 ( 277 ) - -9999.0 
WLEV2C278) - -9999.0 

7. End of algorithm 

RETURN 

COMMENTS: 1. Th« following TYPE statements mutt bo Includod In the coda of this 

submodule 

COMMON /SENSOR/ WLEV1 (300) 

COMMON /6E0PHY/ WLEV2(325) 

COMMON /T2S2A/ A(3),B(3) 

COMMON /T252B/ C(5) 

2. Tho A and B cotfflcltnts ware determined empirically from comparisons 
between GEOS- 3 wind speed estimates and ground truth wind speed 
measurements 


LEVEL 2 ALTITUDE CORRECTION MOOULE A.A-2.6 

TITLE: SUBROUTINE AL2C0R 

FUNCTION: To act as the driver module for the calculation of the geophysical related 

corrections to the altitude (except for atmospheric corrections) 

REFERENCE: Not applicable 

CONTROL: A.A-2.0 ALT2DR level 2 driver module 

SUPPORT: A.A-2.6.1 GEOID geold height submodule 

A.A-2.6. 2 TIDE tide height submodule 

A.A-2.6. 3 SETIDE solid earth tide height submodule 
A.A-2.6. 4 EMMAS EM bias submodule 

A.A-2.6. 5 SSHfiES sea surface height submodule 
ACCESS: CALL AL2C0R 

INPUTS: None 

OUTPUTS: None 

TABLES: None 

ALGORITHM: 1. Determine the geold height 

CALL GEOID 

2. Determine the tide height 

CALL TIDE 

3. Determine the solid earth tide height 

CALL SETIDE 

4. Determl.te the EM bias 

c;ll embias 
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5. Determine the sea surface height 

CALL SSHRES 

6. End of algorithm 

RETURN 


GEO ID HEIGHT SUBMODULE A.A-2.6.1A 


TITLE: 

FUNCTION: 

REFERENCES: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE GEOID 

To compute the geold height at the subsatellite point. Any geold model 
may be used as long as the geoid heights are supplied for a 1°x1° grid. 
None 


A.A-2.6 
A.A-2.6.1.1 
CALL GEOID 
A.D-2.71 
WLEV1 (151) 
HLEV1 (152) 
ISTAT(43) 

ULEV2(281) 

None 


AL2COR level 2 altitude correction module 
BILINE bilinear interpolation submodule 

= geoid data file (see Comment #4) 

= geodetic latitude in (deg, 0.000001) 

= longitude in (deg ,0.000001) 

= subtrack direction flag (0 for south to north, 1 for north 
tf' south) 

= geoid height in (m, 0.001) 


1. Check for input variables out of range 

IF (ISTAT(43).LT.O .OR. ISTAT(43).GT.l) GO TO 9 
IF (WLEV1 (151).LT. -90.0 .OR. WLEV1 (151 ) .GT.90.0) GO TO 9 
IF (WLEV1(152).LT.0.0 .OR. WLEV1 (152). GE. 360.0) GO TO 9 

2. Compute the corner point coordinates of the l°xl° rectangle enclosing 
the subsatellite point 

10 = WLEV1 ( 1 51 ) 

JO = WLEV1 (152) 

IF (WLEV1 (1 51 ) .LT. 0.0) 10 = 10 - 1 
XI = JO 


Y1 = 10 


X2 = JO + 1 
Y2 = 10 + 1 

3. Determine if the geold file must be read 
NTEST = JO - N 

IF (NTEST. GE.O .AND. NTEST. LE. 4) GO TO 8 
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NTEST ■ JO - N + 360 

IF (NTEST.GE.O .AND. NTEST. LE. 4) GO TO 8 

4. Geoid file must be read - determine which records (current longitude 
through 5 degrees longitude down track) 

N - JO - 4 

IF (N .IT. 0) N - N ♦ 360 
NSTOP « N + 5 

5. Determine the latitude range to be used (current latitude through 30 
degrees latitude down track) 

IF (I$TAT(43) .EQ. 0) LI » 10 
IF (ISTAT(43) .EQ. 1) 11 * 10 - 29 
IF (LI .LT. -90) LI - -90 
IF (LI .GT. 60) LI = 60 
L2 - LI + 30 

6. Read the geoid file 

a. DO 100 I - N, NSTOP 
NREC =1+1 

IF (NREC .GT. 360) NREC * NREC - 360 

b. Read record #NREC from the random access geoid file Into the array 
called V 

7. Store the geoid data Inside the computed latitude range 

K « N - I + 1 
DO 100 L = L1,L2 
J = L + 91 
M = LI - L + 1 
100 G(M,K) = V(J) 

8. Interpolate the geoid 

Kl = 10 - LI + 1 
K2 * K1 + 1 
J1 = JO - N + 1 
J2 = J1 + 1 

CALL BILINE (X1,Y1,Y2,WLEV1(152).WLEV1(151),G(J1,K1), 

1 G(J1 ,K2) ,G(J2,K1 ) ,G(J2,K2),WLEV2(281 )) 

GO TO 11 

9. Input out of range - print warning message and all Input variables 

10. WLEV2(281 ) » -9999.0 

11. End of algorithm 

RETURN 
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COMMENTS: 


1. The following TYPE statements must be Included In the code of this 
submodule: 

DIMENSION V ( 181 ) ,6(31 ,6) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /GEOPHY/ HLEV2(325) 

DATA N/ -9999/ 

2. The Input longitude of the subsatelllte point, WLEV1 (152), must be In 
the range 

0 < WLEV1 (152) < 360 

3. The geold heights are read and stored Into an array 6° In longitude 
by 31® In latitude 

4. The geold data file (A.D-2.71) consists of 360 records (one for each 
degree of longitude), each containing 181 words (one for each degree 
of latitude). The first record contains data for 1.0° longitude. 


GEO ID AND TIDE HEIGHT SUBMOOULE A.A-2.6.1B 


TITLE: 

FUNCTION: 


REFERENCES: 


CONTROL : 
SUPPORT: 
ACCESS: 
INPUTS: 


SUBROUTINE GEOTID 

To compute the tide and geoid heights at the subsatellite point. The tide 
model used is the Schwlderskl tide model. Any geold model may be used as 
long as the geold heights are supplied for a l°xl® grid. 

Schwlderski, E. W., "Detailed Ocean Tide Models of (N2. M2, S2, K2) 
and (Kl, PI, 01, Ql) Including an Atlas of Tidal Charts and Maps," 

IUGG General Assembly XXII, Canberra, Australia, 1979. 


Schwlderskl, E. W. , "Global Ocean Tides, Part I: A Detailed 
Hydrodynamlcal Interpolation Model," Marine Geodesy , No. 3, 1980. 


Schwlderskl, E. W., "On Charting Global Ocean Tides," Reviews of 


Geophysics and Space Physics . 1980. 

A.A-2.6 AL2COR level 2 altitude correction module 
A.A-2.6.1.1 BILINE bilinear interpolation s'lfamdulc 
CALL GEOTID 


A.D-2.71 

TMJD 

WLEVl(l) 

WLEV1(2) 

WLEV1(120) 

MLEV1(151) 


■ geold and tide data file 

* modified Julian date in (d.I.OxlO’ 9 ) 

■ day of year 

* seconds past midnight 
- year - 1900 

» geodetic latitude in ( deg, 0. 000001 ) 


J50 



WLEV1(152) 

• longitude In (deg, 0.000001) 


ISTAT(43) 

■ subtrack direction flag (0 for south to north, 1 for north 
to south) 

OUTPUTS: 

WLEV2(281 ) 

* geoid height In (m, 0.001) 


WLEV2(282) 

• tide height In (m, 0.001) 

TABLES: 

Nora 



ALGORITHM: 1. Check for Input variables out of range 

IF ( I STAT ( 43 ) . LT . 0 .OR. ISTAT(43).GT.l) GO TO 12 
IF (MLEVK 151).LT. -90.0 .OR. MLEV1 ( 151 ) .GT.90.0) GO TO 12 
IF (WIEV1(152) .LT.0.0 .OR. WLEV1(152).GE. 360.0) GO TO 12 
IF (TR1D.LT. 0.00+00 .OR. TMJD.GT.l .00+05) GO TO 12 

2. Compute the corner point coordinates of the l°xl° rectangle enclosing 
the subsatellite point 

10 - WIEV1 (151 ) 

JO » WLEV1 (152) 

IF ( WLEV1 (151) .LT. 0.0) 10 - 10 - 1 
XI - JO 

Y1 - 10 

X2 » JO + 1 

Y2 - 10 + 1 

3. Determine If the geold/tlde file must be read 

NTEST - JO - N 

IF ( NTEST. GE.O .AND. NTEST.LE.4) GO TO 8 

NTEST - JO - N + 360 

IF (NTEST. GE.O .AND. NTEST.LE.4) GO TO 8 

4. Geold/tlde file must be read - determine which records (current 
longitude through 5 degrees longitude down track) 

N - JO - 4 

IF (N .LT. 0) N - N + 360 
NSTOP - N + 5 

5. Determine the latitude range to be used (current latitude through 30 
degrees latitude down track) 

IF (ISTAT(43) .EQ. 0) LI - 10 
IF ( ISTAT (43) .EQ. 1) LI » 10 - 29 
IF (LI .LT. -90) LI • -90 
IF (LI .GT. 60) LI - 60 
L2 - LI + 30 

6. Read the geold/tlde file 
a. DO 100 I - N. NSTOP 
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NREC * I ♦ 1 

IF (NREC .GT. 360) NREC « NREC - 360 
b. Read record INREC from the random access geold/tlde file Into the 
181x13 array called V 

7. Store the geold and tide data Inside the computed latitude range 

K » N - I + 1 
DO 100 L - L1,L2 
J » L + 91 
M ■ LI - L + 1 
G(N.K) - V ( J • 1 ) 

SM(M,K) - V(0,2) 

CM(N,K) « V(J,3) 

SS(M,K) - V(J,4) 

CS(M,K) * V(J,5) 

SN(M,K) « V(J,6) 

CN(M,K) * V(J,7) 

SK(M,K) * V(0,8) 

CK(M,K) * V(0,9) 

SO(M,K) = V(0,10) 

CO(H,K) = V(J,11) 

$P(M»K) * V ( J ,12) 

100 CP(N,K) = V(J,13) 

8. Interpolate the geold (data is now available for interpolation) 

K1 = 10 - LI + 1 
K2 * K1 + 1 
Jl = JO - N + 1 
J2 * Jl +1 

CALL BILINE (X1,Y1,Y2,WLEV1(152),WLEV1(151),G(J1.K1), 

1 G( Jl ,K2),G(J2,K1 ) ,G(J2, K2) ,WLEV2(281 ) ) 

9. Interpolate the tide coefficients 

CALL BILINE (XI .Y1,X2,Y2,WLEV1(152),WLEV1(151),SM(J1,K1), 

1 SH(J1,K2),SM(J2,K1),SM(J2,K2),SM2) 

CALL BILINE (XI ,Y1 . X2. Y2.WLEV1 ( 1 52) ,WLEV1 ( 1 51 ) ,CH( J 1 ,Kl ), 

1 CM(J1 ,K2) ,CM(J2,K1 ),CH(J2,K2) ,CM2) 

CALL BILINE (XI ,Y1 ,X2. Y2.WLEV1 ( 1 52) ,Vfl_EVl ( 151 ) ,SS( Jl ,K1). 

1 SS( Jl ,K2) ,SS(J2,K1 ) ,SS(J2,K2) ,SS2) 

CALL BILINE (XI ,Y1 .X2.Y2.WLEV1 (152) ,WLEV1 ( 151 ) »CS(J1 ,K1 ). 

1 CS( Jl ,K2) ,CS( J2,K1 ) ,CS( J2,K2) ,C$2) 


CALL BILINE (X1.Y1.X2,Y2,WLEV1(152).WLEV1(151),SN(«)1.K1). 
1 $N(J1,K2),$N(J2,KL).$N(J2,K2),$N2) 

CALL BILINE (XI ,Y1 *X2,Y2.WLEV1 (152) .WLEV1 (151 ) »CN( J1 .K1 ). 
1 CN(J1 ,K2) ,CN( J2.K1 ) ,CN(02.K2) ,CN2) 

CALL BILINE (X1,Y1.X2.Y2,WLEV1052).NLEV1(151),SK(J1,K1), 
1 SK(01 ,K2) ,SK(J2,K1 ) ,SK(J2,K2) .SKI ) 

CALL BILINE (X1,Y1.X2.Y2,WLEV1(152),NLEV1(151).CK(J1,K1). 
1 CK(01,K2) ,CK(02,K1 ) .CK( J2.K2) ,CK1 ) 

CALL BILINE (Xl i Y1 i X2,Y2.WLEVlO52),NLEVlO51),S0(Jl,Kl), 
1 S0(J1»K2)»S0(J2.K1 ). $0(02, K2). SOI) 

CALL BILINE (X1.Y1.X2.Y2.WLEV1(152).ULEV1(151).C0(J1,K1) ( 
1 C0( J1 ,K2) ,C0( J2.K1 ) ,CO(J2,K2) ,C01 ) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(1$2).NLEV1(151),SP(J1.K1), 
1 SP( J1 ,K2) ,SP( J2.K1 ) .SP( J2.K2) .SP1 ) 

CALL BILINE (XI ,Y1 ,X2,Y2.WLEV1(152),WLEV1{151),CP(J1.K1), 
1 CP( J1 ,K2) .CP( J2.K1 ) ,CP(J2,K2) .CPI ) 

SK2 * 0.29 * ( SS2*0. 99939083-CS2*0. 0348995 ) 

CK2 « 0.29 * (CS2*0.99939083+SS2*0. 0348995) 

10. Determine the phase of the tide 

a. IDAY * WLEVl(l) 

SEC - MLEV1(2) 

IYR * WLEV1 (120) 

IDB - IDAY + 365*(IYR-75) ♦ (IYR-77)/* 

T « (T0+T1MDB) / 36525.0 
S « SO + S1*T + S2*T**2 + S3*T**3 

H ■ HO + H1*T ♦ H2*T**2 

P * PO + P1*T + P2*T**2 + P3*T**3 

DTR * 3.1415926535 / 180.0 

b. XM2 - 2.0 * (H-S) * DTR 
XS2 - 0.0 

XN2 » (2.0*H-3.0*S+P) * DTR 
XK2 - 2.0 * H * DTR 
XK1 - (H+90.0) * DTR 
X01 » (H-2.0*S-90.0) * DTR 
XP1 » (-H-90.0) * DTR 

C. PH2 * SM2*SEC + XH2 

PS2 » SS2*SEC ♦ XS2 

PN2 • SN2*SEC + XN2 

PK2 - SK2*SEC + XK2 


1S3 


COMMENTS: 


PK1 - $K1*$EC ♦ XK1 

POl - S01*SEC + XOl 

PP1 - SP1*$EC + XP1 

IK Calculate the height of each constituent of the tide and sum 
HM2 - CM2*COS(PM2) + SM2*SIN(PM2) 

HS2 - CS2*COS(PS2) + SS2*SIN(PS2) 

HN2 - CN2*COS(PN2) + SN2*SIN(PN2) 

HK2 - CK2*C0S(PK2) + SK2*SIN(PK2) 

HK1 - CK1*C0S(PK1) ♦ SK1*SIN(PK1 ) 

HOI - C01*C0S(P01) + S01*SIN(P01) 

HP1 - CPl*COS(PP1) + SP1*SIN(PP1) 

MLEV2(282) * HM2 + HS2 + HN2 + HK2 + HK1 + HOI + HP1 
60 TO 14 

12. Input out of range - print warning message and all Input variables 

13. WLEV2(281 ) - -9999.0 

WLEV2(282) » -9999.0 

14. End of algorithm 

RETURN 

1. The fol lowing TYPE statements must be Included In the code of this 
submodule: 

DOUBLE PRECISION TMJD 

DIMENSION SH( 31 ,6) ,SS(31 ,6) ,SN(31 ,6) ,SK(31 ,6) ,S0(31 ,6) , 
DIMENSION CM(31,6).CS(31,6),CN(31,6),CK(3K6),C0(3K6) 

DIMENSION SP(31,6),CP(31.6),V(181,13), 6(31,6) 

COMMON /STATUS/ ISTAT(IOO) 

COMMON /SENSOR/ WLEV1 (300) 

COMMON /GEOPHY/ WLEV2(300) 

COMMON /JUNK/ U0RK(2500) 

EQUIVALENCE (V(l ,1),H0RK(1 )) , (THJD.WLEV1 (5 ) ) 

DATA N/-9999/ 

DATA TO, Tl/27392. 500528, 1.0000000356/ 

DATA SO, SI .S2.S3/270.434358, 481267. 88314137, -0.001133, 0.0000019/ 
DATA HO, HI .H2/279. 69668,36000. 768930485,0.000303/ 

DATA PO , PI ,P2 .P3/334 . 329653 , 4069 . 034032957 ,-0.010325,-0.000012/ 

2. The Input longitude of the subsatelllte po1nt,WLEVl(152), must be in 
the range 

0 < WLEVl (152) < 360 

3. The geold and tide coefficients are read and stored Into arrays 6° In 
longitude by 31° in latitude 
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BILINEAR INTERPOLATION SUBMODULE 


A.A-2.6.1.1 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


SUBROUTINE BILINE 

To linearly Interpolate a three-dimensional function Z ■ f (X, ) given the 
four X and Y coordinates of the comers of a rectangle and the value of Z 
at each of the corners. 

Not applicable 

A.A-2.6.1 GEOID geold height submodule 
A.A-2.6.2 TIDE tide height submodule 
None 

CALL BILINE (XI ,Y1 ,X2,Y2.XE.YE,Z11 .Z12.Z21 .Z22.ZE) 

XI ■ first value of X 

Y1 ■ first value of Y 

X2 ■ second value of X 
Y2 - second value of Y 
XE ■ X evaluation point 
YE * Y evaluation point 
Z11 = f(Xl.Yl) 

Z12 = f { XI ,Y2) 

Z21 - f(X2,Yl ) 

Z22 « f(X2,Y2) 

ZE - f(XE.YE) 

None 

1. Compute Interpolation constants 

A1 - 0.0 
A2 » 0.0 

IF (XI .NE. X2) A1 » (XE-X1 ) / (X2-X1) 

IF (Y1 .NE. Y2) A2 - (YE-Y1) / (Y2-Y1) 

2. Linearly Interpolate f(X,Y) along Y ■ Y1 

B1 » Zll + A1*(Z21-Z11) 

3. Linearly Interpolate f(X,Y) along Y ■ Y2 

B2 ■ Z12 + A1*(Z22-Z12) 

4. Linearly Interpolate f(X,Y) along X • XE 

ZE - B1 + Z2*(B2-B1 ) 

5. End of algorithm 

RETURN 

None 
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TIDE HEIGHT SU8MC0ULE 


A.A-2.6.2 


TITLE: 

FUNCTION: 

REFERENCES: 


CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


SUBROUTINE TIDE 

To compute the tide height at the subsatellite point. The tide model used 
Is the Schwlderskl tide model. 

Schwlderskl, E. W. , "Detailed Ocean Tide Models of (N2, M2, S2, K2) 
and (K1, PI, 01, Q1) Including an Atlas of Tidal Charts and Maps," 

IUGG General Assembly XXII, Canberra, Australia, 1979. 


Schwlderskl, E. W. , "Global Ocean Tides, Part I: A Detailed 
Hydrodynamlcal Interpolation Model," Marine Geodesy , No. 3, 1980. 


Schwlderskl, E. VI. , "On Charting Global Ocean Tides," Reviews of 
Geophysics and Space Physics . 1980. 


A.A-2.6 
A.A-2.6.1.1 
CALL TIDE 
A.D-2.72 
TMJD 
WLEVl(l) 
WLEVl (2) 
WLEV1 (120) 
WLEVl (151) 
WLEVl (152) 
ISTAT(43) 

WLEV2(282) 

None 


AL2C0R level 2 altitude correction module 
BILINE bilinear Interpolation submodule 

■ tide data file 

* modified Julian date in (d, 1.0x10’®) 

■ day of year 

> seconds past midnight 

■ year - 1980 

* geodetic latitude In (deg, 0.000001) 

■ longitude In (deg, 0.000001) 

* subtrack direction flag (0 for south to no^th, 1 for north 
to south) 

* tide height In (m, 0.001) 


1. Check for input variables out of range 

IF ( ISTAT(43).LT.0 .OR. ISTAT(43).GT.l) GO TO 11 
IF ( WLEVl (1 51 ).LT. -90.0 .OR. WLEVl (151 ).GT. 90.0) GO TO 11 
IF ( WLEVl (1 52). LT. 0.0 .OR. WLEVl (152). GE. 360.0) GO TO 11 
IF (TMJD.LT.0.0D+00 .OR. TMJD.GT.l .00*05) GO TO 11 

2. Compute the corner point coordinates of the l^xl" rectangle enclosing 
the subsatellite point 

10 « WLEVl (151) + 0.5 

JO - WLEVl (152) + 0.5 

IF (WLEVl (151) .LT. 0.5) 10 « 10 - 1 

XI « JO - 0.5 

Y1 • 10 - 0.5 
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3. 


X2 « JO + 0.5 
Y2 ■ 10 ♦ 0.5 

Determine If the tide file must be read 
NTEST • JO - N 

IF ( NTEST. GE.O .AND. NTEST. LE. 4) GO TO 8 
NTEST - JO - N + 360 
IF (NTEST. GE.O .AND. NTEST. LE. 4) GO TO 8 

4. Tide file must be read - determine which records (current longitude 
through 5 degrees longitude down track) 

N - JO - 4 

IF (N .LT. 0) N - N + 360 
NSTOP ■ N + 5 

5. Determine the latitude range to be used (current latitude through 30 
degrees latitude down track) 

IF (ISTAT(43) .EQ. 0) LI • 10 
IF (ISTAT{43) .EQ. 1) LI - 10 - 29 
IF (LI .LT. -89) LI - -89 
IF (Li .GT. 60) LI - 60 
L2 - LI + 30 

6. Read the tide file 

a. DO 100 I - N, NSTOP 
NREC - I ♦ 1 

IF (NREC .GT. 360) NREC - NREC - 360 

b. Read record fNREC from the random access tide file Into the 180x12 
array called V 

7. Store the tide data Inside the computed latitude range 


K » N - 

I ♦ 1 

DO 100 L - L1,L2 

J « L + 90 

M - LI 

• L + 1 

$N(N,K) 

» V(J,1) 

CH(H.K) 

• V(J,2) 

SS(H.K) 

• V(J,3) 

CS(M,K) 

• V ( J .4 ) 

SK(H,K) 

» V(J,5) 

CK(H.K) 

• V(J,6) 

SO(M.K) 

« V(J,7) 

CO(M.K) 

■ V(J.B) 

SN(M.K) 

» V(J,9) 
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CN(M,K) ■ V(J,10) 

SP(H.K) • V(J,11) 

100 CP(N,K) ■ V( J . 1 2 ) 

K1 • I0-L1+1 
K2 - Kl+1 
J1 « JO-N+l 
J2 ■ J1+1 

8. Interpolate the tide coefficients 

CALL BILINE (XI, Y1 ,X2,Y2,WLEV1(152),WLEVU151),SM(J1,K1), 
1 SM(J1 ,K2),SM(J2,K1) ,SN(J2,K2),$M2) 

CALL BILINE (X1,Yl,X2,Y2,WLEVl(152) t W.EVl(151),CH(Jl,K1), 
1 CH(01 ,K2),CM(J2,K1),CM(J2,K2),CM2) 

CALL BILINE (Xl,Y1,X2,Y2,WLEV1(152),ULEVU151).SS(01,K1). 
1 SS(01 ,K2),SS( J2.K1 ),SS(J2,K2),SS2) 

CALL BILINE (X1,Y1,X2.Y2,MLEV1(152),WLEVU151),CS(J1,K1), 
1 CS( J1 ,K2) ,CS( J2.K1 ) ,CS( J2.K2) ,CS2) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152),WLEVU151),SN(J1,K1), 
1 SN(J1 ,K2),SN(02,KL) ,SN(02,K2),SN2) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152).WLEVU151),CN(J1,K1), 
1 CN(J1 ,K2) ,CN( J2.K1 ) ,CN( J2.K2) ,CN2) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152),WLEVH151),SK(01,K1), 
1 SK(J1 ,K2),SK(J2,K1 ),SK(J2,K2),SK1 ) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152),WLEV1(151),CK(J1,K1), 
1 CK(J1 ,K2),CK(J2,K1 ) ,CK(J2,K2) ,CK1 ) 

CALL BILINE (X1,Y1.X2,Y2.WLEVU152),WLEV1(151),S0(J1.K1), 
1 $0(J1,K2),S0(J2,K1 ),S0(J2,K2),S01) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152),WLEV1(151),C0(J1,K1), 
1 C0(J1 ,K2),CO(J2,K1 ) ,C0(J2,K2) ,C01 ) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152).WLEV1(151),SP(J1,K1), 
1 SP(J1,K2),SP(J2,K1),SP(J2,K2),SP1) 

CALL BILINE (X1,Y1,X2,Y2,WLEV1(152),WLEV1051),CP(J1,K1), 
1 CP(J1 ,K2),CP(J2,K1 ) ,CP(J2.K2) ,CP1 ) 

SK2 - 0.29 * (SS2*0.99939083-CS2*0. 0348995) 

CK2 - 0.29 * ( CS2*0 . 99939083+SS2*0 . 0348995 ) 

9. Determine the phase of the tide 
a. IDAY ■ WLEV1 (1 ) 

SEC • WLEV1(2) 

IYR - ULEV1 ( 1 20) 

I OB - IDAY ♦ 365*(IYR-75) ♦ (IYR-77)/4 


COMMENTS: 


T - (TO+T1MDB) / 36525.0 
S ■ .3 ♦ S1*T ♦ S2*T**2 + S3*T**3 
H ■ HO ♦ H1*T ♦ H2*T**2 
P ■ PO ♦ P1*T ♦ P2*T**2 «■ P3*T**3 
DTR - 3.1415926535 / 180.0 

b. XM2 - 2.0 * (H-S) * DTR 
XS2 - 0.0 

XN2 • (2.0*H-3.0*S+P) * DTR 
XK2 ■ 2.0 * H * DTR 
XK1 ■ (H+90.0) * DTR 
X01 • (H-2. 0*5-90.0) * DTR 
XP1 ■ (-H-90.0) * DTR 

c. PM2 - SM2*SEC ♦ XM2 
PS2 ■ SS2*SEC + XS2 
PN2 - $N2*SEC + XN2 
PK2 - SK2*SEC ♦ XK2 
PK1 ■ SK1*SEC + XK1 
P01 ■ S01*SEC ♦ X01 
PP1 - SP1 *SEC ♦ XP1 

10. Calculate the height of each constituent of the tide and sun 

HM2 - CM2*CO$(PM2) + SM2*SIN(PM2) 

HS2 ■ CS2*COS(PS2) + SS2*SIN(PS2) 

HN2 - CN2*COS(PN2) ♦ SN2*SIN(PN2) 

HK2 ■ CK2*C0S(PK2) + SK2*SIN(PK2) 

HK1 • CK1*C0S(PK1 ) + SK1*SIN(»K1) 

HOI - C01*C0S(P01) + S01*SIN(P01 ) 

HP1 - CP1*C0S(PP1) ♦ SP1*SIN(PP1 ) 

ULEVK282) ■ HM2 ♦ HS2 ♦ HN2 ♦ HK2 + HK1 + HOI + HP1 
GO TO 13 

11. Input out of range - print warning message and all Input variables 

12. WIEV2(282) ■ -9999.0 

13. End of algorithm 

RETURN 

1. The following TYPE statements must be Included In the code of this 
submodule: 

DOUBLE PRECISION TtUD 

DIMENSION SM(31 ,6),$S(31,6),$N(31 ,6),SK(31 ,6).S0(31 ,6), 
DIMENSION CM(31,6),CS(31,6),CN(31,6),CX(31,6),C0(31,6) 
DIMENSION SP(31 .6) ,CP(31 ,6).V(180,12) 
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comm /status/ istat(ioo) 

COMMON /SENSOR/ WL£V1(300) 

COMMON /6E0PHY/ WLEV2(300) 

COMMON /JUNK/ WORK (2500) 

EQUIVALENCE (V(1,1),W0RK(1)) , (TMJO.WLEVI(S)) 

DATA N/-9999/ 

DATA TO. Tl/27392. 500528, I. 0000000356/ 

DATA SO. SI .S2.S3/270. 434358, 481267. 883141 37 ,-0.001 133,0. 0000019/ 
DATA H0.H1.H2/279.69668, 36000. 768930485,0.000303/ 

DATA P0,Pl,P2,P3/334.329653,4O69.034O32957, -0.010325, -0,000012/ 

2. The Input longitude of the subsatelllte po1nt,WLEVl(152), must be In 
the range 

0 < WLE VI (152) < 360 

3. The tide coefficients are read and stored Into an array 6° In longi- 
tude by 31° In latitude 

4. The tide data file (A.D-2.72) consists of 360 records tone for each 
degree of longitude), each containing 180 words (one for each degree 
of latitude). The first record contains data for 0.5° longitude. 

5. It was assumed that coefficients over land will cause this correc- 
tion to be computed as zero. This Is probably not the true case. 


SOLID EARTH TIDE HEIGHT SUBMODULE A.A-2.6.3 


TITLE: 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


SUBROUTINE SET IDE 


To calculate the magnitude of the solid earth tide height at the sub- 


satellite point. 

SEASAT Altimeter Geophysical Algorithm Specifications . JPL 622-226, 
December 1980 

A.A-2.6 AL2C0R level 2 altitude correction module 
A.A-2.6.3. 1 SLINT solar/lunar ephemerldes Interpolation submodule 


CALL SETIDE 

MLEVl(l) 

WLEV1(2) 

WLEV1O20) 

MLEV2(7) 

WLEV2(8) 

RM 

RS 


day of year 
seconds past midnight 
year - 1900 

geodetic latitude In (deg, 0.000001 ) 
longitude In (deg, 0.000001) 
lunar Inertial position vector In (m,1.0) 
solar Inertial position vector In (m,1.0) 
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OUTPUTS: 

TABLES: 

ALGORITHM: 


WLEV2(283) • solid earth tldo height In (m, 0.001) 

Non* 

1. Compute the modlfltd Julian data (Julian data Minus 2,400,000.5). 
Nota that this modi f lad Julian data Is tha modlflad Julian data 
daflnad by tha GEOS and SEASAT software and Is not conslstant with 
tha modlflad Julian data daflnad alsawhara In tha NOSS algorithm 
specification*. 

I DAY • WLEV1(1) 

I YEAR • ULEV1 (120) 

FOOAY - WLEV1(2) / 86400.0 
NYRM1 • I YEAR ♦ 1899 
IC - HYRM1 / 100 

MJD • -678576 + 365*NYRM1 ♦ NYRM1/4 - IC «■ IC/4 

2. Convert latitude and longitude to Inertial coordinates 

TU • (MJD-15019.5) / 36525.0 
A ■ 99.69098 ♦ ( 36000. 7689+0.00038708*TU)*TU 
B ■ A * 360.98$6473*F0OAY 
C ■ COS(A) 

S - SIN(A) 

F - 1.0 / FR 

E • 2.0*F - F*F 

RLAT - WLEV2(7) * PI / 180.0 

RLON ■ WLEV2(8) * PI / 180.0 

P « ATAN(TAN(RLAT*(1.0-E))) 

XE1 • COS(P) * (C*COS(RLON)-S*SIN(RLOH)) 

XE2 - COS(P) * (S*C0S(RL0N)+C*SIN(RL0N)) 

XE3 • SIN(P) 

3. Interpolate tha inertial position vectors of the sun and tha moon. 

CALL SLINT 

4. Calculate the deformation due to tha mow: 

DM • 0SQRT(RM(1)**24-RM(2)**2+RM(3)**2) 

TM - AC0S((XEl*RM(l)*XE2*RM(2)+XE3*RM(3))/nM) 

CTM - COS(TM) 

OHM • H2 * RATH * AE**4 / DM** 3 * (1.5*CTM**2-0.5) 

5. Calculate the deformation due to the sun 

05 ■ DSQRT (RS( 1 )**2*RS( 2 )**2+R$( 3)**2 ) 

TS - AC0S((XE1*RS(1)+XE2*RS(2)*XE3*RS(3))/0S) 

CTS - COS(TS) 

OHS ■ H2 * RATS * AE**4 / DS**3 * (1.5*CTS**2-0.5) 
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6. Compute the net deformation 

WLEV2{283) ■ DHH + OHS 

7. End of algorithm 

RETURN 

COMMENTS: 1. The following TYPE statements must be Included In the code of this 

submodule 

DOUBLE PRECISION RM(3),RS(3) 

COMMON /SENSOR/ WLEV1(300) 

COMMON /GEOPHY/ WLEV2(325) 

EQUIVALENCE (MLEV2(311),RM(1)) , (WLEV2(317),RS(1)) 

DATA H2/0.612/ , AE/6378145.0/ , FR/298.257/ 

DATA RATM/0.01 229997/ , RATS/332945.562/ 

DATA PI/3.1415926/ 


SOLAR/LUNAR EPHEMERIDES INTERPOLATION SUBMODULE A.A-2.6.3.1 


TITLE: 

SLINT 


FUNCTION: 

To determine the inertial position vectors of the sun and the moon by 
interpolating the ephemeris file, A.D{M)-2.85 to the proper time. 

REFERENCE: 

None 


CONTROL: 

A.A-1.5 LOCATE 

location classification module 

SUPPORT: 

None 


ACCESS: 

CAL?. SlINT 


INPUTS: 

A. D{M)-2. 85 = 

solar/lunar ephemeris file 


TMJD 

modified Julian date in (d.l .OxlO’ 9 ) 

OUTPUTS: 

RM 

lunar inertial position vector in (m,1.0) 


RS 

solar inertial position vector in (m,1.0) 

TABLES: 

None 

' 

ALGORITHM: 

TBD 


COMMENTS: 

1. The following TYPE statement must be included in the code of this 


submodule 


DOUBLE PRECISION RM(3),RSt3) 

COMMON /GEOPHY/ WLEV2(325) 

EQUIVALENCE (WLEV2(311 ) ,RM(1 ) , (WLEV2(317),RS{1 )) 

2. The specific design of this algorithm for now is being left to the 
mission contractor. 
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EM BIAS 


A.A-2.6. 4 


TITLE: 

FUNCTION: 


REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 

TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 


SUBROUTINE EMBIAS 

To provide a correction for the electromagnetic (EM) bias effect In which 
the relative radar cross section tends to Increase below mean sea level 
(MSL) and decrease above NSL In the presence of waves. Its effect Is to 
shift the centroid of the radar return away from MSL toward the wave 
troughs, so that the altimeter tracks long. Recent experimental data 
from the surface contour radar (SCR) at 36 Oiz, and the NRL 10-GHz 
adaptive radar altimeter Indicate that the EM bias Is In the range of 0 to 
3 percent of the SWH by E. 0. Walsh. The data Indicate that the magnitude 
of the effect may Increase with wave height. A theoretical development 
by Jackson (Ref. 8) using a one-dimensional model of the sea surface 
indicated that there should be a linear dependence of the EM bias on the 
skewness of the height distribution. 

See above. 

A.A-2.6 AL2C0R level 2 altitude correction module 


TBD 

CALL EMBIAS 

WLEV2(230) 

WLLV2(232) 

WLEV2(277) 

WLEV2(284) 

WLEV2(285) 

WLEV2(286) 

A table of 

MLEV2 (284) 


« significant wavehelght from A.A-2.3 (SWH) 
- ocean-wave skewness from A.A-2.3 (X $ ) 

* wind speed from A.A-2.5.2 (W 1Q ) 

* height correction from EM bias 
= standard deviation of 6h 2 5 

* EM sea-state bias quality flag 
constants, K^, K^, K^, and (TBD). 

* K 1 + K 2 SWH + K 3 X $ + K 4 W 10 1/2 SWH 
if less than zero then set to zero. 


WLEV2(285) * TBD 
WLEV2(286) * TBD 

1. This is only a functional description. 


SEA SURFACE HEIGHT SUBMODULE A.A-2.6. 5 

SUBROUTINE SSHRES 

To compute the sea surface height and altitude residual. The sea sur- 
face height is the difference between the reference ellipsoid and the 
corrected altitude measurement and as such is an estimate of the altim- 
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REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


TABLES: 

ALGORITHM: 


COMMENTS: 


eter geold. The altitude residual Is the difference between the cor- 
rected altitude measurement and the modeled altitude measurement and Is 
used In estimation and orbit determination. 

None 

A.A-2.6 AL2C0R level 2 altitude correction module 
None 


CALL SSHRES 

ALT2 

HGT 

WLEV2 ( 281 ) - 
WLE V2 (282 ) « 
WLEV2(283) » 
ALTLO 
ALTHI 

WLEV2(287) * 
WLE V2 (288) = 
None 


corrected altitude In (m, 0.001) 

height above the reference ellipsoid In (m, 0.001) 

geold height In (m, 0.001) 

tide height In (m.0.001) 

solid earth tide height In (m.O.OOl) 

altitude lower limit In (m,1.0) 

altitude higher limit In (m.1.0) 

sea surface height In (m.0.001) 

altitude residual in (m, 0.001) 


1. Check Input values 

IF (ALT2.LT.ALT0L0 .OR. ALT2.GT. ALTHI) GO TO 4 
IF (HGDLT.ALTLO .OR. HGT. GT. ALTHI) GO TO 4 
IF (WLEV2 (281).LT. -150.0 .OR. WLEV2(281).GT. 150.0) GO TO 4 
IF (WLEV2(282).LT.-10.0 .OR. WLEV2(282.GT.10.0) GO TO 4 
IF ( WLEV2 (283). LT. -10.0 .OR. WLEV2(283).GT.10.0) GO TO 4 

2. Determine the sea surface height 

WLEV2(287) * HGT - ALT2 

3. Determine the altitude residual 

WLEV2(288) » ALT2 - HGT + WLEV2(281) 

1 + WLEV2(272) + WLEV2(283) 

GO TO 6 

4. Input out of range • print warning message and all Input variables 

5. WLEV2(287) = -9999.0 
WLEV2(288) » -9999.0 

6. End of algorithm 

RETURN 

1. The following TYPE statements must be included in the code of this 
submodule: 

DOUBLE PRECISION ALT2.HGT 
COMMON /SENSOR/ WLEV1 (300) 

COMMON /GEOPHY/ WLEV2(325) 
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COMMON /ALTLIM/ ALTLO.ALTHI 

EQUIVALENCE (ALT2,WLEV2(9)) , (HGT.WLEV1 ( 1 37 ) ) 


ICE SHEET HEIGHT 


A.A-2.7 


TITLE: 

FUNCTION: 

REFERENCE: 
CONTROL: 
SUPPORT : 
ACCESS: 
INPUTS: 


OUTPUTS: 


TABLES: 

ALGORITHM: 

COMMENTS: 


SUBROUTINE ICE 

To correct sea-surface height estimates over Ice sheet (and possibly over 
all non-ocean surfaces) for non-ocean return characteristics. 

None 


A.A-2.0 ALT2DR 
TBD 

CALL ICE 
WLEV2(287) 

WLE V2 (101—1 63 ) 

WLEV2(22) 

WLEV2(19) 

WLEV2 (1 2) 

WLEV2(20) 

ISTAT(28) 

WLEV2(287) 

WLEV2(290) 

WLEV2 ( 291 ) 
WLEV2(289) 

WLEV2 ( 292 ) 


level 2 driver module 


■ sea-surface height from A.A-2.6.5 In (m, 0.001) 

- waveform samples In (counts.O.l) 

- AGC In (db.0.01) 

■ height rate In (m/s, 0.01) 

* spacecraft Instrument attitude In (deg,0.01) 

* height error In (m,0.001) 

- adaptive resolution step size 

■ corrected sea-surface height In (m.O.OOl) 

■ sea-surface height correction In (m, 0.001) 

* mean surface roughness In (dlmenslonless.0.1) 

- mean surface slope In (deg.0.01) 

■ sea-surface height retrack estimate quality flag 
(0 for good, 1 for questionable) 


TBD 

TBD 

1. This module will be employed only over areas of Interest. The 
altimeter data will be corrected for waveform shape changes that 
cause track-point shifts. This correction will be done by a software 
retracking process designed for Ice-sheet processing, and then the 
surface height will be calculated. 

2. This Is only a functional description. The algorithms will be 
defined a* a later date. 
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SEA ICE 


A.A-2.8 


TITLE*. 

FUNCTION: 

REFERENCE: 

CONTROL: 

SUPPORT: 

ACCESS: 

INPUTS: 


OUTPUTS: 


TABLES: 

ALGORITHM: 


COMMENTS: 


TITLE: 

FUNCTION: 


REFERENCES: 

CONTROL: 


SUBROUTINE SEAICE 

The sea Ice related quantities* mean-squared slope, Fresnel power reflec 
tlon and percent smooth area, are estimated. 

Stanley, H. R., and R. E. Dwyer, "NASA Wallops Flight Center GEOS-3 
Altimeter Data Processing," NASA RP-1066, November 1980. 

A.A-2.0 ALT2DR level 2 driver module 


None 


CALL SEAICE 
WLEV202) = 
WLEV2 (22) - 

WLEV2 ( 37 ) « 

WLEV2(36) = 

WLEV2(99) - 

WLEV2 ( 1 63 ) * 
WLEV2(242) - 
WLEV2(243) « 
WLEV2(244) - 
None 


Instrument attitude 
automatic gain control 
attitude gate 
plateau gate 
transmitted power 
63 waveform samples 
MSS (mean-square-slope) 

F (Fresnel power reflection coefficient) 
PCS (percent smooth area) 


These parameters were calculated on GE0S-3 (Ref. 9) and appeared to 
correlate with the Dwyer Godin Index (Ref. 10). They are based on Inter 
pretation of the physics of radar scattering, whereas the Dwyer Godin 
Index Is an ad hoc ice Index. 


The Fresnel power reflection coefficient, F, Is computed based on a re la 
tlonship of the peak waveform amplitude and the mean square slope. 

1. This Is only a functional description. 


QUALITY CONTROL A.A-2.9 


SUBROUTINE QUALTY 

To classify the quality of the level 2 output data A. 0-2. 91. The data 
will be flagged as being of questionable quality when prescribed standard 
deviation tolerances are exceeded, when the number of rejected points in 
the various smoothing algorithms exceeds acceptable limits, or when opera 
tlonal threshold limits are exceeded. 

None 

A.A-2.0 ALT2DR level 2 driver module 
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r 

i 

i 

SUPPORT: TBD 

ACCESS: CALL QUALTY j 

INPUTS: Level 2 altimeter data. 

OUTPUTS: The following data quality flags are set: 

WLEV2(294) ■ quality flag for 

WLEV2(295) ■ quality flag for height rate 

WLEV2(296) - quality flag for radar backscatter 

WLEV2(297) ■ quality flag for AGC standard deviation 

WLEY2(298) » quality flag for attitude 

WLEV2(299) - quality flag for MTU temperature 

WLE V2 ( 300) « quality flag for DFB temperature 

WLEV2 (301 ) « quality flag for noise gate 

WLEV2(302) » quality flag for AGC gate 

WLEV2(303) ■ quality flag for TWT collector temperature 

WLEV2(304) * quality flag for SMH standard deviation 

NLEV2(305) * EM sea-state bias quality flag 

WLEV2(306) ■ quality flag for data validity 

Values of 0 Indicate acceptable quality; values of 1 indicate question- 
able quality. 

TABLES: A table of preflight nominal tolerances to be used In setting the data 

quality flags (TBD). 

ALGORITHM: Level 2 output parameters are compared with the table and output flags 

are set to the appropriate values. Limits on standard deviations are 
compared after a decay filter Is used to remove spurious points. 

C0M1CNTS: 1. As a final step In the level 2 processing, the altimeter software will 

analyze the contents of the level 2 output file In order to classify 
the quality of the data. The data will be flagged as being of ques- 
tionable quality when: (a) prescribed standard deviation tolerances 

are exceeded, (b) the number of rejected points In the various smooth- 
ing algorithms exceeds acceptable limits, or (c) operational threshold 
limits are exceeded. 

2. This Is only a functional description. 



OTHER CONSIDERATIONS 


This section summarizes the additional considerations required for developing the 
software for the altimeter processing. The Program Limitations section lists known 
limitations that are built Into the processing and Expected Types of Future Changes/ 
Updates section Identifies the status and charges needed to complete the algorithms. 


Program Limitations 

The following program limitations are repeated here from the Key Assumptions section: 

(a) All data required from the Input files (l.e. , ephemerls files, FNOC file, LAMMR 
level 2 file, etc.) must be available and current as the altimeter processing 
software requires It. Failure to supply any of the Input files Is not to result 
In the abnormal termination of the altimeter processing software but to produce 
degraded output products, which will be flagged as such. 

(b) The requirements associated with the possible processing of data from more than 
one spacecraft have not Leen addressed In this report (l.e., no tables allow for 
four altimeters). 


Expected Types of Future Changes/Updates 

Modules are logically grouped In this report. However, a multisensor processing 
system may require the processing order to be revised for some modules. 

The following modules will require future updates: 

(a) 1 .1 -Engineering Units Conversion - The conversion constants provided In this 
report are Seasat values. NOSS values will replace these constants as they 
become available. 

(b) 1.1.8— Engineering Units Rain Subcom - This module has only been scoped and will 
be completed in the future. 

(c) 1.1.9— EU Waveform. CW or Pimp - Only waveform has been specified. 

(d) 1.2.1— Time Tag Correction - The table entries In this module are based upon 
Seasat values. NOSS values will replace them as they become available. 

(e) 1.2.2— Cal Zone Bias - The table of cal zone bias corrections will be provided 
after the launch of the spacecraft. 
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(e) 1.2.3— Center of Gravity Offset - The table of center of gravity offsets will be 
provided after the geometry of the spacecraft Is defined and updated after 
launch as fuel Is expended. 

(f) 1.2.4— Cal Mode Bias - The table of altitude and AGC cal motto biases will be 
provided after the launch of the spacecraft. 

(g) 1,3.1— Cal 1 Processor - The calibration mode data base constants will be 
supplied three months before the launch of the spacecraft. 

(1) 1.3.2— Cal 2 Processor - The calibration mode data base constants will be 
supplied before the launch of the spacecraft. 

(j) 1.3.3— Trend File Processor - The curve-fit technique and the display require- 
ments will be specified prior to the launch of the spacecraft. 

(k) 1,4— Adaptive Resolution - This module has only been scoped and will be com- 
pleted In the future. 

(l) 1 .5.1— Spacecraft Ephemerls Interpolation - This module has only been scoped and 
will be completed In the future. 

(m) 1 .5,2— Subsatellite Point Calculation - This module has only been scoped and 
will be completed In the future. 

(n) 2.1— Contamination Processing - This module has only been scoped and will be 
completed In the future. 

(o) 2,3.2— Waveform Altitude Correction - This module has only been scoped and will 
be completed in the future. 

(p) 2.3.3— Waveform SWH Correction - This module has only been scoped and will be 
completed In the future. 

(q) 2.3.4— Waveform SWH Bias - This module has only been scoped and will be com- 
pleted in the future. 

(r) 2.4— Atmospheric Module - This module and Its submodules has only been scoped 
and will be completed in the future. 

(s) 2.5.2— Wind Speed - The algorithm depends on the necessity of correcting for the 
atmosphere for the best accuracy. 

(t) 2.6,3. 1 --Solar/Lunar Ephemerls Interpolation - This module has only been scoped 
and will be completed in the future. 

(u) 2.6.4— EM Bias This module has only been scoped and will be completed in the 
future. 

(v) 2.7— Ice Sheet Height - This module has only been scoped and will be completed 
in the future. 

(w) 2.8— Sea Ice - This module has only been scoped and will be completed In the 
future. 

(x) 2.9— Quality Control - This module has only been scoped and will be completed In 
the future. 
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Tabic A.1 


NOSS Altimeter Telemetry Node 1 Content (20 records/sec. ) 


1. 

Time (GMT] 

I 

2. 

Time (GMT 

I 

3. 

Time (GMT 

! 

4. 

Time (GMT] 

! 

5. 

Altitude 


6 . 

Altitude 


7. 

A1 tl tude 


8. 

Altitude Rate 

9. 

Altitude Error 

10. 

SWH 


11. 

AGC word 


12. 

AGC gate 


13. 

Early gate 

14. 

Late gate 


15. 

Middle gate 

16. 

Gate normalization factor 

17. 

Noise gate 

18. 

Plateau gate 

19. 

Attitude gate 

20. 

Transmit power 

21. 

Cal atten/SACU status 

22. 

Status 1 


23. 

Status 2 


24. 

Status 3 


25. 

Status 4 


26. 

Status 5 


27. 

Engineering subcom #1 (20 deep) 

28. 

Engineering subcom 12 (20 deep) 

29. 

Engineering subcom 13 (20 deep) 

30. 

Rain detection subcom (20 deep) 

31. 

Waveform samples (average of 50 pulses) 
« 

93. 

• 

Waveform Samples 

94. 

Spare 

• 

100. 

Spare 

• 


MOSS Altimeter Telemetry Mode 2 Content (CW)- -Words 1 to 30 will be the same as TM 
format 1. Words 31 to 93 will be nine groups of seven words containing T x count, nit 
count, altitude and AGC. 


NOSS Altimeter Telemetry 3 Content (dump)- -Same content as TM 2, except words 31 to 93 
will contain memory dump data. 
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Table A.l (continued) 


CAL Atten/SACU Status 


MSB 10 
9 
8 
7 
6 
S 
4 
3 
2 
1 


Not used (-0) 


MSB-48 dB 


LSB-6 dB 
Spare 
HV ON 
HV ready 
TWT fault 


Calibrate attenuator 
“0"- Insert attenuation 
(all zeroes Is max value) 
0 to 60 dB In 11 steps 


SACK status 
"1" ■ true 


cosmand 
out to 
SACO 
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Table A.l (continued) 


Status #1 (last Data Command Sent) 


CMC 

word 

no. 

10 

9 

6 

Bit No. 
7 6 

5 

4 

3 

Mode 

1 

0 

0 

0 

C 

0 

0 

0 

0 

Standy 

2 

1 

0 

0 

C 

0 

0 

0 

1 

Calibrate 

3 

1 

0 

0 

C 

0 

0 

1 

0 

Trigger kill 

4 

0 

0 

0 

C 

0 

0 

1 

1 

Track 1 

5 

1 

0 

0 

C 

0 

1 

0 

0 

Track 2 

6 

0 

0 

0 

C 

0 

1 

0 

1 

Track 3 

7 

0 

0 

0 

C 

0 

1 

1 

0 

Track 4 

8 

1 

0 

0 

C 

0 

1 

1 

1 

1¥T fault reset 

9 

1 

0 

0 

C 

1 

0 

0 

0 

Test mode 1 (CW) 

10 

0 

0 

0 

C 

1 

0 

0 

1 

Test mode 2 

11 

0 

0 

0 

C 

1 

0 

1 

0 

Test mode 3 

12 

1 

0 

0 

C 

1 

0 

1 

1 

Test mode 4 

13 

0 

0 

0 

C 

1 

1 

0 

0 

Adapt. Resol. 

14 

1 

0 

0 

c 

1 

1 

0 

1 

TBO 

15 

1 

0 

0 

c 

1 

1 

1 

0 

TBD 

16 

0 

0 

G 

c 

1 

1 

1 

1 

TBD 


Parity Memory 




Mode command 




dump 


■ 










1 

1 

. CAL 

I. 

II (add to track command to specify 


complete calibrate mode cycle to be run once 
every two hours) 

Rain processing enable 


Notes: Bits 2 & 1 

10 + Execute bits 3 through 6 imnedlately 

0 0 •> First initialize the tracker, then execute bits 3 through 10 

0 1 + Load memory dump control words, allows 256 data commands 

1 1 -*• Load parameter select control words, allows 256 data command 
Bits 3 through 10 used for parity. Commands sent with bits 1 and 2 
either 01 or 11 will not appear in TM word 24 
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Table A. 1 (continued) 


Status #2 (Engineering Data Channel/ATU Mode) 
MSB 10 MSB 

tnannel select (1-46) 

S LSB 


ATU mode - same as bits 6, 5. 4, and 3 

of word 15 (last data command) 
except when In CAL III. 


1 


Status #3 (ATU Branch Status) 


MSB 10 
9 
8 


MSB 


LSB 


50, 25, 12.5, 6.25 
3.125 normal spacing 

Gate width (early, middle and late 

number gate continued) 

(6=50 ns) 3.125 close spacing 

(early and late gates 
overlapping middle gate) 


7 ACQ/TRK 


6 

Chirp ACQ step 
5 


4 Reacquire flag 


LSB 


3 

2 

1 


AH > T AH 
Spare 
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Table A.l (continued) 


Status #4 (SACU Node Command) 

MSB 10 

Not used (*0) 

9 

8 Chirp/CW (chirp«l) 

7 High voltage ON/OFF (ON=1) 

6 TWTA fault reset (resets for 50 ms) 

5 Trigger kill (=1) 

4 Calibrate mode I (1st 11 steps) 

3 Calibrate mode II (noise only) 

2 TWT heater ON/OFF C0N=1), (always ON if power applied) 

LSB 1 Spare 

Status #5 (ATU Control Status) 

MSB 10 Altimeter designator 

9 

8 

Program version 

7 

6 

5 

Tracker type 

4 

3 

2 Resolution step 

LSB 1 
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Table A.l (continued) 


Engineering Subcon #1 


1 . 

TWT bean current 

11. UCFM temperature 

2. 

TWT cathode voltage 

12. DDL temperature 

3. 

TWT HVPS temperature 

13. DDL ASSY temperature 

4. 

TWT collector temperature 

14. HSWS temperature 

5. 

No data 

15. DFB temperature #1 

6. 

Receiver temperature 

16. AT #1 temperature 

7. 

Noise gate amplitude 

17. AT #2 temperature 

8. 

Plateau gate amplitude 

18. 1CU temperature 

9. 

Attitude gate amplitude 

19. SACU temperature 

10. 

Transmit power amplitude 

20. LVPS temperature 




Engineering Subcom #2 

1. 

LVPS 38V current 

11. 0.657V REF 

2. 

+28V S/C bus Isolated 

12. SACU PLO LOCK 

3. 

+28V 

13. MTU temperature 

4. 

+15V 

14. No data 

5. 

-15V 

15. DFB temperature #2 

6. 

+7 V 

16. Spare #1 

7. 

-9V 

1 7 . Spare #2 

8. 

+5 V 

18. Spare #3 

9. 

-5.2V 

19. Spare #4 

10. 

+1 .00V REF 

20. Spare #5 


i 
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Table A.1 (continued) 


Engineering Subcon #3 


1 . 

Relay status (see below) 

11. Spare #10 

2. 

Bits 1 through 8 spare 

12. Spare #11 

3. 

Parameter select 1 

13. Spare #12 

4. 

Parameter select 2 

14. Spare #13 

5. 

Parameter select 3 

15. Spare #14 

6. 

Parameter select 4 

16. Spare #15 

7. 

Spare #5 

17. Spare #16 

8. 

Spare *7 

18. Spare #17 

9. 

Spare #8 

19. Spare #18 

10. 

Spare #9 

20. Spare #19 

Relay status 



0 = TWTA fault override 

Bit #3 

1 = TWTA fault normal 


0 * LVPS current normal 

Bit #2 

1 * LVPS current override 


0 « AT #1 

Bit #1 

1 « AT #2 
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Table A.l (continued) 


Parameter select 1 

Bits 10 & 9 

Bits 8 & 7 

Bits 6,5,4,&3 

Parameter select 2 

Bits 10,9,8,47 

Bits 6,5,4,43 


Index to select acquisition running average tine 
constant 

Index to select track running average tine 
constant 

Index to select track AGC threshold 


Index to select acquisition a, B, and AGC time 
constants 

Index to select track a t 0» and AGC time 
constants 


Parameter select 3 

Bits 10 & 9 

Bits 8 & 7 

Bits 6 & 5 
Bits 4 & 3 


Index to select minimum gate width for AH 
computation 

Index to select average L c -E £ threshold for track 

< t tt> 6 6 

Index to select height error threshold (T^) 

Index to select average U-E*. threshold for chirp 
acquisition (T.^) 0 0 


Parameter select 4 

Bits 10,9,48 Offset for adjustment wavehelght curves (AK^) 

Bits 7,6,5,4,43 Acquisition height offset, LSB-0.4 ms 


Notes*. Bits 2 & 1 are 1, 1 for all parameter words. 

If no parameter selection Is requested, then words 13-16 are all zero. 

If parameters are selected, the 32 selectable bits will not alter the 
status of the trackev Immediately but will be utilized with a subsequent 
track 4 command. 

If the altimeter Is placed In the OFF mode, or when any conwand Is sent 
with bit 2*0, then the selection Is lost and must be reloaded. 


Table A. 2 

Altimeter-Related Spacecraft Engineering Data (1/sec)* 


Name 

Time (GMT) 

Instrument attitude 
Baseplate temperature 
Instrument currents 
Instrument voltages 
Instrument heater status 
Altimeter analog channels 


Length (bytes) 
8 
8 

120 

16 

8 

8 

96 

264 


* Information Is always available and must be continuously processed 
for both altimeters. 


APPENDIX B 


183 


Table 0.0-a A.D-1.94 and A.D-2.91 Header Record 


Word Number 
1 
2 

3 

4 

5 


Explanation 
satellite ID 
Instrument ID 
program version 
year - 1900 
TBD 


100 TBD 


Table 0.0-b A.D-1.94 Header Record #2 
Explanation 


Word Number 
1 
2 


8 

9 


800 

801 

802 


1600 


EU(1,1,1) 

EU(2.1.1) 


EU(8,1,1) 

EUO.2,1) 


EU(8, 100,1) 
EU(1 ,1,2) 
EU(2,1,2) 


EU(8,100,2) 
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Altimeter #1 


Altimeter #2 


Table 1.1.2 AGC Word Lookup Table 


Atten. 

Setting 

AGC 

Value 

Atten. 

Setting 

AGC 

Value 

Atten. 

Setting 

AGC 

Value 

0 

0.0 

22 

22.1 

43 

43.7 

1 

1.0 

23 

23.0 

44 

44.2 

2 

2.0 

24 

24.1 

45 

45.7 

3 

2.9 

25 

25.1 

46 

46.2 

4 

4.0 

26 

26.1 

47 

47.6 

5 

5.0 

27 

27.1 

48 

48.5 

6 

5.9 

28 

27.8 

49 

49.9 

7 

6.8 

29 

28.9 

50 

50.5 

8 

8.0 

30 

30.0 

51 

52.0 

9 

9.0 

31 

31.0 

52 

52.4 

10 

9.9 

32 

32.4 

53 

53.9 

11 

10.9 

33 

33.6 

54 

54.7 

12 

11.9 

34 

34.2 

55 

56.1 

13 

12.9 

35 

35.6 

56 

56.8 

14 

13.8 

36 

36.2 

57 

58.3 

15 

14.8 

37 

37.5 

58 

58.9 

16 

16.1 

38 

38.2 

59 

60.3 

17 

17.1 

39 

39.5 

60 

60.6 

18 

18.1 

40 

40.3 

61 

62.1 

19 

19.0 

41 

41.7 

62 

62.9 

20 

19.9 

42 

42.3 

63 

64.1 

21 

20.9 







Table 1.2.1 Constant Time Tag Correction 

I 

DTC(I.l) 

ETC(I.2) 

1 

-0.147951 

-0.147951 

2 

0.0 

0.0 

3 

0.0 

0.0 

4 

-0.147951 

-0.147951 


Table 1.2.2 Cal Zona Bias and Standard Deviation 


I 

DCZB(I) 

CZB(I.I) 

CZB(I,2) 

SCZB(l.l) 

SCZB(I,2) 

1 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

9999.0 

-9999.0 

-9999.0 

-9999.0 

-9999.0 

3 

9999.0 

-9999.0 

-9999.0 

-9999.0 

-9999.0 

4 

9999.0 

-9999.0 

-9999.0 

-9999.0 

-9999.0 

5 

9999.0 

-9999.0 

-9999.0 

-9999.0 

-9999.0 




Table 1 .2.3 

C.6. Offset and Standard Deviation 


I 

DCG0(1) 

CGO(I.l) 

CG0(I»2) 

SCG0( I s 1 ) 

SCG0(I,2) 

1 

0.0 

0.0 

0.0 

0.0 

0.0 

2 

9999.0 

-9999.0 

-9999.0 

-9999.0 

-9999.0 

3 

• 

9999.0 

• 

-9999.0 

• 

-9999.0 

• 

-9999.0 

• 

-9999.0 

• 

• 

• 

10 

• 

• 

9999.0 

• 

• 

-9999.0 

• 

• 

-9999.0 

• 

• 

-9999.0 

• 

• 

-9999.0 
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Table 1.2.4 Cal Mode Biases and Standard Deviation 
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Table 2.2a. Parameters For Which Mhos Only Are Calculated 


H 

Parameter 

11(H) 

WLEV1 Array 
Location 

J1(N) 

NLEV2 Array 
Location 

1 

Instrument attitude 

136 

12 

2 

time correction 

119 

23 

3 

altitude C.G. offset 

128 

24 

4 

altitude cal zone bias 

126 

25 

5 

altitude cal mode bias 

130 

26 

6 

A6C cal mode bias 

132 

27 

7 

altitude adapt, res. correction 

146 

28 

8 

AGC adapt, res. correction 

148 

29 

9 

MTU temperature 

50 

38 

10 

DFB temperature #1 

32 

39 

11 

TWT collector temperature 

22 

40 


HI ■ 11 


Table 2.2b. Parameters For Which Means and Standard Deviations Art Calculated 


12(H) 

NLCV1 Array 


N 

Parameter 

Location 

T 

AGC gate amplitude 

10 

2 

early gate amplitude 

11 

3 

late gate amplitude 

12 

4 

■Iddle gate amplitude 

13 

S 

altitude error 

7 

6 

noise gate amplitude 

15 

7 

plateau gate amplitude 

16 

8 

attitude gate Mplltude 

17 

9 

rain subcoal word #1 

223 

10 

• 

rain subcon word #2 

• 

224 

• 

• 

• 

28 

• 

• 

rain subcoat word #20 

e 

• 

242 

29 

transmit power 

18 

30 

waveform sample #1 

160 

31 

• 

waveform sample #2 

• 

161 

e 

• 

• 

93 

• 

• 

waveform sample #63 

• 

• 

222 


J2A(A) 

WLEV2 Array 
Location of Mean 

J28(N) 

MLEV2 Array 

30 

49 

31 

50 

32 

51 

33 

52 

20 

46 

35 

54 

36 

55 

37 

56 

58 

78 

59 

• 

79 

0 

• 

• 

77 

0 

• 

97 

99 

100 

101 

164 

102 

• 

165 

a 

• 

• 

163 

• 

• 

226 


N2 • 93 
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Table 2.2c. Para— tors Which Art Linearly Fit Without Computation of Standard Deviations 


N Para— ter 

1 latitude 

2 longitude 

3 ellipsoid height 


13(D) 

WLEV1 Array 
Location 

151 


J3(P) 

WLEV2 Array 
Location 

7 


152 8 

137 A 138 9, 10 

D3 - 3 



Table 2.2d. Parai 

Jeters Which Are Linearly Fit With Computation of 

Standard Oevlatlo 



14(D) 

J4A(N) 

J4B(D) 



WLEV1 Array 

WLEV2 Array 

WLEV2 Array 

N 

Para— ter 

Location 

Location of Fit 

Location of S.D. 

1 

altitude 

5 A 6 

17 A 18 

16 

2 

altitude rate 

4 

19 

45 

3 

SMH 

8 

21 

47 

4 

AGC word 

9 

22 

48 


N4 = 4 


Table 2.2e. Special Parameters To Be Compressed 


N 

Para— ter 

Input 

Location 

WLEV2 Ari 
Location 

1 

orbit number 

IEXEC(3) 

1 

2 

altl— ter number 

ISTATC25) 

2 

3 

compression Interval 

IEXEC(5) 

4 

4 

compressed tine 

WLEV1 (117A118) 

5A6 

5 

zone flag 

ISTAT(44) 

14 


TABLE 2.3.1 TIME LOCATION AND INDEX I NO FOB THE S3 SEASAT WAVEFORM SAMPLERS 


Index 

Tine, ns 

SEASAT 
Wtvefbrm 
SftMDlt # 

Index 

Tine, ns 

SEASAT 
Mrofons 
Socle # 

1 

-92.1875 

-30 

33 

1.5625 

♦ 1 

2 

•89.0625 

-29 

34 

3.1250 

♦ H 

3 

-85.9375 

-28 

35 

4.6875 

♦ 2 

4 

-82.8125 

-27 

36 

7.8125 

♦ 3 

5 

-79.6875 

-26 

37 

10.9375 

♦ 4 

6 

•76.5625 

-25 

38 

14.0625 

♦ 5 

7 

-73.4375 

-24 

39 

17.1875 

♦ 6 

8 

-70.3125 

-23 

40 

20.3125 

♦ 7 

9 

-67.1875 

-22 

41 

23.4375 

♦ 8 

10 

-64.0625 

-21 

42 

26.5625 

♦ 9 

11 

-60.9375 

-20 

43 

29.6875 

♦10 

12 

-57.8125 

-19 

44 

32.8125 

♦11 

13 

-54.6875 

-18 

45 

35.9375 

♦12 

14 

-51.5625 

-17 

46 

39.0625 

+13 

15 

-48.4375 

-16 

47 

42.1875 

♦14 

16 

-45.3125 

-15 

48 

45.3125 

♦15 

17 

-42.1875 

-14 

49 

48.4375 

♦16 

18 

•39.0625 

-13 

50 

51.5625 

♦17 

19 

-35.9375 

-12 

51 

54.6875 

♦18 

20 

-32.8125 

-11 

52 

57.8125 

+19 

21 

-29.6875 

-10 

53 

60.9875 

♦20 

22 

-26.5625 

- 9 

54 

64.0625 

♦21 

23 

-23.4375 

* 8 

55 

67.1875 

+22 

24 

-20.3125 

- 7 

56 

70.3125 

+23 

25 

-17.1875 

• 6 

57 

73.4375 

♦24 

26 

-14.0625 

- 5 

58 

76.5625 

+25 

27 

-10.9375 

- 4 

59 

79.6875 

♦26 

28 

- 7.8125 

- 3 

60 

82.8125 

♦27 

29 

- 4.6875 

- 2 

61 

85.9375 

♦28 

30 

• 3.1250 

- It 

62 

89.0625 

♦29 

31 

- 1.5625 

- 1 

63 

92.1875 

+30 

32 

0.0000 

0 
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Table 2.5.1«, Cal Attenuator ate A6C 


I 

AGCI(I) 

CM.K(I) 

1 

16.58 

43.7 

2 

24.15 

36.1 

3 

30.30 

30.3 

4 

35.67 

24.2 

5 

42.27 

18.2 

6 

48.07 

12.2 

7 

54.52 

6.2 

8 

60.58 

0.0 


Tabla 2.5.1b. 

Attitude Loss vs Attitude 

I 

ATT(I) 

AL(I) 

1 

0.00 

0.0161 

2 

0.05 

0.0391 

3 

0.10 

0.1081 

4 

0.15 

0.2231 

5 

0.20 

0.3842 

6 

0.25 

0.5914 

7 

0.30 

0.8449 

8 

0.35 

1.1445 

9 

0.40 

1.4904 

10 

0.45 

1.8826 

11 

0.50 

2.3213 

12 

0.55 

2.8066 

13 

0.60 

3.3386 

14 

0.65 

3.9178 

15 

0.70 

4.5430 

16 

0.75 

5.2158 


Table 2.5.2a 


Mind A and B Coefficients 


1 
1 

2 
3 


A(I) 

0.080074 

0.039893 

0.015950 


B(I) 

-0.124651 

-0.031996 

0.017215 


Mind Polynomial Coefficients 


Table 2.5.2b. 

1 
1 

2 

3 

4 
$ 


C(I) 

2.087799 
-0.3649928 
0.04062421 
-1. 904952x1 0" 3 
3.788189x10"® 


